--- gforth/filedump.fs	1994/02/11 16:30:46	1.1
+++ gforth/filedump.fs	1996/09/19 22:17:31	1.5
@@ -1,11 +1,11 @@
-#! /usr/stud/paysan/bin/forth
+#! /usr/local/lib/gforth/0.2.0/kernel.fi
 \ 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 ;
+  buffer $10 rot read-file throw
+  dup /dump !  $10 <> swap 6 u.r ." : "  buffer .line cr ;
 
 : init  cr $10 base ! ;