wrap.words: missed this commit.

diff --git a/basis/wrap/words/words.factor b/basis/wrap/words/words.factor
index 40387559d4c88291b893d0ee1dcfa7a365ad7fcf..f282658d68b09df7dc3b5567c40f8e764106b10b 100644 (file)
--- a/basis/wrap/words/words.factor
+++ b/basis/wrap/words/words.factor
@@ -16,7 +16,7 @@ C: <word> word
     [ append ] [ [ words-length ] bi@ ] 2bi <element> ;
 
 : ?first2 ( seq -- first/f second/f )
-    dup length dup 1 > [ first2-unsafe ] [
+    dup length dup 1 > [ drop first2-unsafe ] [
         0 > [ first-unsafe f ] [ drop f f ] if
     ] if ;