--- gforth/kernel/require.fs	2000/08/26 13:29:49	1.12
+++ gforth/kernel/require.fs	2000/09/06 08:47:15	1.13
@@ -146,11 +146,16 @@ create image-included-files  1 , A, ( po
 : loadfilename#>str ( n -- adr len )
     included-files 2@ drop swap 2* cells + 2@ ;
 
-: .included ( -- ) \ gforth
-    \G list the names of the files that have been @code{included}
+: .strings ( addr u -- ) \ gforth
+    \G list the strings from an array of string descriptors at addr
+    \G with u entries, one per line.
     included-files 2@ 2* cells bounds ?DO
-	cr I 2@ type  2 cells +LOOP ;  
+	cr I 2@ type 2 cells +LOOP ;
 
+: .included ( -- ) \ gforth
+    \G list the names of the files that have been @code{included}
+    included-files 2@ .strings ;
+    
 \ contains tools/newrequire.fs
-\ \I $Id: require.fs,v 1.12 2000/08/26 13:29:49 anton Exp $
+\ \I $Id: require.fs,v 1.13 2000/09/06 08:47:15 anton Exp $