From b2a10982f7bce3268873f6a128e5059b56e8f387 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 3 Aug 2012 08:44:22 -0700
Subject: [PATCH] wrap.words: missed this commit.

---
 basis/wrap/words/words.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/wrap/words/words.factor b/basis/wrap/words/words.factor
index 40387559d4..f282658d68 100644
--- 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 ;