From 7deab681c622227c5b9b65e27be411cd20c5db3b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 2 Apr 2020 12:32:05 -0700
Subject: [PATCH] io.encodings.utf7: skip over first char when searching.

---
 basis/io/encodings/utf7/utf7.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ;