--- gforth/compat/anslocal.fs	1996/01/25 16:47:05	1.1
+++ gforth/compat/anslocal.fs	1997/06/06 17:28:12	1.3
@@ -10,15 +10,27 @@
 \ it and 2) it's unnecessary; just put a 0 before the "{" for every
 \ additional local you want to declare.
 
-\ This program uses PARSE from the core ext and COMPARE from the
-\ string wordsets
+\ The program uses the following words
+\ from CORE :
+\ : bl word count ; >in @ 2dup 0= IF 2drop [char] ELSE THEN drop
+\ recurse swap ! immediate
+\ from CORE-EXT :
+\ parse true 
+\ from BLOCK-EXT :
+\ \ 
+\ from FILE :
+\ ( S" 
+\ from LOCAL :
+\ (local) 
+\ from STRING :
+\ compare 
 
 : local ( "name" -- )
     bl word count (local) ;
 
 : {helper ( -- final-offset )
     >in @
-    bl parse
+    bl word count
     2dup s" --" compare 0= if
 	2drop [char] } parse 2drop true
     else