diff --git a/basis/io/encodings/utf7/utf7.factor b/basis/io/encodings/utf7/utf7.factor
index 921c857181..3fe399c2d5 100644
--- a/basis/io/encodings/utf7/utf7.factor
+++ b/basis/io/encodings/utf7/utf7.factor
@@ -34,7 +34,7 @@ TUPLE: utf7codec dialect buffer ;
 
 : split-chunk ( str -- after before printable? )
     dup first printable? [
-        dupd '[ printable? _ = not ] find drop
+        [ 1 over ] dip '[ printable? _ = not ] find-from drop
         [ cut-slice ] [ f ] if* swap
     ] keep ;