--- gforth/see.fs	2001/03/17 21:36:41	1.35
+++ gforth/see.fs	2002/04/01 15:34:34	1.40
@@ -254,9 +254,14 @@ VARIABLE C-Pass
     THEN
     cell+ ;
 
-: .word
+: .word ( addr xt -- addr )
     look 0= IF
-	drop dup 1 cells - @ ." <" 0 .r ." >"
+	drop dup 1 cells - @ dup body> look
+	IF
+	    nip dup ." <" name>string rot wordinfo .string ." >"
+	ELSE
+	    drop ." <" 0 .r ." >"
+	THEN
     ELSE
 	dup cell+ @ immediate-mask and
 	IF
@@ -266,7 +271,7 @@ VARIABLE C-Pass
     THEN ;
 
 : c-call
-    Display? IF  dup @ body> .word bl cemit  THEN  cell+ ;
+    Display? IF  ." call " dup @ body> .word bl cemit  THEN  cell+ ;
 
 : .name-without ( addr -- addr )
 \ prints a name without () e.g. (+LOOP) or (s")
@@ -439,7 +444,7 @@ VARIABLE C-Pass
 
 CREATE C-Table
 	        ' lit A,            ' c-lit A,
-		' call A,           ' c-call A,
+[IFDEF] call	' call A,           ' c-call A, [THEN]
 		' (s") A,	    ' c-c" A,
        		 ' (.") A,	    ' c-c" A,
         	' "lit A,           ' c-c" A,
@@ -579,10 +584,7 @@ Defer discode ( addr u -- ) \ gforth
 
 : seecode ( xt -- )
     dup s" Code" .defname
-    threading-method
-    if
-	>code-address
-    then
+    >code-address
     dup in-dictionary? \ user-defined code word?
     if
 	dup next-head
@@ -674,7 +676,7 @@ Defer discode ( addr u -- ) \ gforth
     if \ normal or immediate word
 	swap xt-see (.immediate)
     else
-	r@ ['] compile-only-error =
+	r@ ['] ticking-compile-only-error =
 	if \ compile-only word
 	    swap xt-see (.immediate) ."  compile-only"
 	else \ interpret/compile word