--- gforth/test/other.fs	2003/01/04 08:26:58	1.20
+++ gforth/test/other.fs	2003/01/06 11:18:59	1.21
@@ -72,7 +72,7 @@ throw \ if the TOS is not 0, throw an er
 
 \ look for primitives
 
-' + xt>threaded threaded>name 0= throw ( nt )
+' + xt>threaded threaded>name dup 0= throw ( nt )
 s" +" find-name <> throw
 
 \ represent