--- gforth/filedump.fs	2003/08/25 14:17:44	1.10
+++ gforth/filedump.fs	2004/01/25 19:35:13	1.11
@@ -32,6 +32,6 @@ Create buf $10 allot
   r> close-file throw ;
 
 script? [IF]
-   : alldump argc @ 2 ?DO I arg 2dup type ." :" filedump LOOP ;
+   : alldump argc @ 1 ?DO I arg 2dup type ." :" filedump LOOP ;
    alldump bye
 [THEN]