--- gforth/filedump.fs	1994/02/11 16:30:46	1.1
+++ gforth/filedump.fs	1995/06/08 15:28:26	1.2
@@ -1,11 +1,11 @@
-#! /usr/stud/paysan/bin/forth
+#! /usr/stud/paysan/bin/gforth
 \ file hex dump
 
 Create buffer $10 allot
 
 : dumpline ( addr handle -- flag )
   buffer $10 2dup 0 fill rot read-file throw
-  $10 <> swap 6 u.r ." : "  buffer .line cr ;
+  dup /dump !  $10 <> swap 6 u.r ." : "  buffer .line cr ;
 
 : init  cr $10 base ! ;