--- gforth/test/other.fs	2003/01/04 08:26:58	1.20
+++ gforth/test/other.fs	2003/03/09 15:17:07	1.22
@@ -1,6 +1,6 @@
 \ various tests, especially for bugs that have been fixed
 
-\ Copyright (C) 1997,1998,2000 Free Software Foundation, Inc.
+\ Copyright (C) 1997,1998,2000,2003 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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