--- gforth/kernel/paths.fs	1998/12/13 23:30:03	1.7
+++ gforth/kernel/paths.fs	1998/12/22 23:11:30	1.8
@@ -63,7 +63,7 @@
         2dup c! char+ swap move ;
 [THEN]
 
-create sourcepath 256 chars , 0 , 256 chars allot
+create sourcepath 1024 chars , 0 , 1024 chars allot \ !! make this dynamic
 sourcepath avalue fpath
 
 : also-path ( adr len path^ -- )