--- gforth/see.fs	2003/01/26 20:56:37	1.49
+++ gforth/see.fs	2004/01/13 16:00:55	1.53
@@ -1,6 +1,6 @@
 \ SEE.FS       highend SEE for ANSforth                16may93jaw
 
-\ Copyright (C) 1995,2000 Free Software Foundation, Inc.
+\ Copyright (C) 1995,2000,2003 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -28,19 +28,6 @@
 require look.fs
 require termsize.fs
 require wordinfo.fs
-[IFUNDEF] .name
-: id. ( nt -- ) \ gforth
-    \G Print the name of the word represented by @var{nt}.
-    \ this name comes from fig-Forth
-    name>string type space ;
-
-' id. alias .id ( nt -- )
-\G F83 name for @code{id.}.
-
-' id. alias .name ( nt -- )
-\G Gforth <=0.5.0 name for @code{id.}.
-
-[THEN]
 
 decimal
 
@@ -734,7 +721,7 @@ Defer discode ( addr u -- ) \ gforth
     >name ?dup-if
 	." IS " .name cr
     else
-	." lastxt >body !"
+	." latestxt >body !"
     then ;
 : see-threaded ( addr -- )
     C-Pass @ DebugMode = IF
@@ -786,7 +773,7 @@ Defer discode ( addr u -- ) \ gforth
     ENDCASE ;
 
 : (xt-see-xt) ( xt -- )
-    xt-see cr ." lastxt" ;
+    xt-see cr ." latestxt" ;
 ' (xt-see-xt) is xt-see-xt
 
 : (.immediate) ( xt -- )
@@ -807,7 +794,7 @@ Defer discode ( addr u -- ) \ gforth
 	else \ interpret/compile word
 	    r@ xt-see-xt cr
 	    swap xt-see-xt cr
-	    ." interpret/compile " over .name (.immediate)
+	    ." interpret/compile: " over .name drop
 	then
     then
     rdrop drop ;