--- gforth/see.fs	1997/07/06 14:29:34	1.18
+++ gforth/see.fs	1998/05/13 16:47:23	1.19
@@ -518,7 +518,11 @@ IS discode
 
 : seecode ( xt -- )
     dup s" Code" .defname
-    >body discode
+    threading-method
+    if
+	>code-address
+    then
+    discode
     ."  end-code" cr ;
 : seevar ( xt -- )
     s" Variable" .defname cr ;