--- gforth/see.fs	2001/03/17 21:36:41	1.35
+++ gforth/see.fs	2002/01/04 20:31:54	1.38
@@ -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,