Fix short-circuit usage in number>text

diff --git a/extra/math/text/english/english.factor b/extra/math/text/english/english.factor
index dfb0c00388398fbc2526ad3115b10571b497653c..58dab74cdbb10d61a5c8462a110fa09577fb86c4 100755 (executable)
--- a/extra/math/text/english/english.factor
+++ b/extra/math/text/english/english.factor
@@ -26,7 +26,7 @@ IN: math.text.english
 
 SYMBOL: and-needed?
 : set-conjunction ( seq -- )
-    first { [ dup 100 < ] [ dup 0 > ] } 0&& and-needed? set drop ;
+    first { [ 100 < ] [ 0 > ] } 1&& and-needed? set ;
 
 : negative-text ( n -- str )
     0 < "Negative " "" ? ;