--- gforth/kernel/int.fs	1999/05/06 21:33:36	1.31
+++ gforth/kernel/int.fs	1999/05/09 21:21:56	1.32
@@ -423,7 +423,7 @@ const Create ???  0 , 3 c, char ? c, cha
 \ ticks
 
 : (') ( "name" -- nt ) \ gforth
-    name dup 0= -&16 and throw \ test for length 0
+    name name-too-short?
     find-name dup 0=
     IF
 	drop -&13 bounce