io.encodings.utf7: skip over first char when searching.

diff --git a/basis/io/encodings/utf7/utf7.factor b/basis/io/encodings/utf7/utf7.factor
index 921c8571819f9785ae4802e4be120f9059802804..3fe399c2d5b39d78e59f1caa69bb46ba610dbfbf 100644 (file)
--- 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 ;