--- gforth/kernel/tools.fs	1997/07/06 15:56:17	1.2
+++ gforth/kernel/tools.fs	1998/10/10 10:28:36	1.5
@@ -67,19 +67,19 @@ Variable /dump
 
 \ words visible in roots                               14may93py
 
-include  termsize.fs
+include  ../termsize.fs
 
 : words ( -- ) \ tools
-    cr 0 context @
+    cr 0 context @ wordlist-id
     BEGIN
 	@ dup
     WHILE
-	2dup head>string nip 2 + dup >r +
+	2dup name>string nip 2 + dup >r +
 	cols >=
 	IF
 	    cr nip 0 swap
 	THEN
-	dup head>string type space r> rot + swap
+	dup name>string type space r> rot + swap
     REPEAT
     2drop ;