--- gforth/see.fs	1998/05/13 16:47:23	1.19
+++ gforth/see.fs	1999/02/16 06:32:30	1.22
@@ -72,8 +72,9 @@ DEFER nlcount ' noop IS nlcount
                 nlflag @ IF (nl) nlflag off THEN
                 XPos @ over + cols u>= IF (nl) THEN ;
 
-: c-to-upper
-  dup [char] a >= over [char] z <= and if  bl -  then ;
+: c-to-upper ( c1 -- c2 ) \ gforth
+    \ nac05feb1999 there is a primitive, toupper, with this function
+    dup [char] a >= over [char] z <= and if  bl -  then ;
 
 : ctype         ( adr len -- )
                 warp? dup XPos +! C-Output @ 
@@ -395,7 +396,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
@@ -616,7 +617,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