--- gforth/kernel/tools.fs	1998/06/17 16:55:18	1.4
+++ gforth/kernel/tools.fs	1999/02/22 21:39:44	1.9
@@ -1,6 +1,6 @@
 \ TOOLS.FS     Toolkit extentions                      2may93jaw
 
-\ Copyright (C) 1995 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1998 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -27,7 +27,9 @@ hex
 variable maxdepth-.s
 9 maxdepth-.s !
 
-: .s ( -- )
+: .s ( -- ) \ tools dot-s
+    \G Display the number of items on the data stack,
+    \G followed by a list of the items; TOS is the right-most item
     ." <" depth 0 .r ." > "
     depth 0 max maxdepth-.s @ min
     dup 0
@@ -43,7 +45,7 @@ Variable /dump
 
 : .4 ( addr -- addr' )
     3 FOR  -1 /dump +!  /dump @ 0<
-        IF  ."    "  ELSE  dup c@ 0 <# # # #> type space  THEN
+        IF  ."    "  ELSE  dup c@ 0 <<# # # #> type #>> space  THEN
     char+ NEXT ;
 : .chars ( addr -- )
     /dump @ bounds
@@ -54,7 +56,11 @@ Variable /dump
 : .line ( addr -- )
   dup .4 space .4 ." - " .4 space .4 drop  10 /dump +!  space .chars ;
 
-: dump  ( addr u -- )
+: dump  ( addr u -- ) \ tools dump
+    \G Display u lines of memory starting at address addr. Each line
+    \G displays the contents of 16 bytes. When Gforth is running under
+    \G an operating system you may get @file{Invalid memory address} errors
+    \G if you attempt to access arbitrary locations.
     cr base @ >r hex        \ save base on return stack
     0 ?DO  I' I - 10 min /dump !
 	dup 8 u.r ." : " dup .line cr  10 +
@@ -63,14 +69,17 @@ Variable /dump
 
 \ ?                                                     17may93jaw
 
-: ? @ . ;
+: ? ( a-addr -- ) \ tools question
+    \G Display the contents of address a-addr in the current number base.
+    @ . ;
 
 \ words visible in roots                               14may93py
 
 include  ../termsize.fs
 
 : words ( -- ) \ tools
-    cr 0 context @
+    \G ** this will not get annotated. See other defn in search.fs .. **
+    cr 0 context @ wordlist-id
     BEGIN
 	@ dup
     WHILE