--- gforth/see.fs	2000/03/11 20:35:05	1.25
+++ gforth/see.fs	2000/05/27 18:55:55	1.26
@@ -542,10 +542,10 @@ IS discode
 : seedefer ( xt -- )
     dup >body @ xt-see-xt cr
     dup s" Defer" .defname cr
-    >name dup ??? = if
-	drop ." lastxt >body !"
-    else
+    >name ?dup-if
 	." IS " .name cr
+    else
+	." lastxt >body !"
     then ;
 : see-threaded ( addr -- )
     C-Pass @ DebugMode = IF