--- gforth/test/other.fs	2002/09/15 20:30:02	1.19
+++ gforth/test/other.fs	2003/01/04 08:26:58	1.20
@@ -72,7 +72,7 @@ throw \ if the TOS is not 0, throw an er
 
 \ look for primitives
 
-' + xt>threaded look 0= throw ( nt )
+' + xt>threaded threaded>name 0= throw ( nt )
 s" +" find-name <> throw
 
 \ represent