--- gforth/see.fs	2001/04/08 13:48:12	1.37
+++ gforth/see.fs	2002/04/01 15:34:34	1.40
@@ -271,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")
@@ -584,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
@@ -679,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