--- gforth/see.fs	1997/07/06 14:29:34	1.18
+++ gforth/see.fs	1999/02/03 00:10:22	1.21
@@ -395,7 +395,7 @@ VARIABLE C-Pass
 
 : c-does>               \ end of create part
         Display? IF S" DOES> " Com# .string THEN
-        Cell+ cell+ ;
+	maxaligned /does-handler + ;
 
 : c-abort"
         count 2dup + aligned -rot
@@ -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 ;
@@ -612,7 +616,12 @@ IS discode
     then
     rdrop drop ;
 
-: see ( "name" -- ) \ tools
+: see ( "<spaces>name" -- ) \ tools
+    \G Locate @var{name} using the current search order. Display the
+    \G definition of @var{name}. Since this is achieved by decompiling
+    \G the definition, the formatting is mechanised and some source
+    \G information (comments, interpreted sequences within definitions
+    \G etc.) is lost.
     name find-name dup 0=
     IF
 	drop -&13 bounce