--- gforth/kernel/require.fs	2010/05/13 09:48:45	1.35
+++ gforth/kernel/require.fs	2010/12/30 21:46:14	1.36
@@ -22,8 +22,8 @@
 create included-files 0 , 0 , ( pointer to and count of included files )
 \ note: these names must not contain a "/" or "\"; otherwise a part of
 \ that name might be used when expanding "./" (see expandtopic).
-here ," *somewhere*" dup c@ swap 1 + swap
-, A, here 2 cells -
+here ," string.fs" dup c@ swap 1 + swap , A,
+here 2 cells -
 create image-included-files 1 , A, ( pointer to and count of included files )
 \ included-files points to ALLOCATEd space, while image-included-files
 \ points to ALLOTed objects, so it survives a save-system
@@ -137,4 +137,4 @@ create image-included-files 1 , A, ( poi
 
 : .included ( -- ) \ gforth
     \G list the names of the files that have been @code{included}
-    included-files 2@ 2 cells under+ 1- .strings ;
+    included-files 2@ .strings ;