--- gforth/blocks.fs	1997/03/27 13:31:01	1.13
+++ gforth/blocks.fs	1997/07/06 16:03:24	1.16
@@ -47,11 +47,11 @@ $20 Value buffers
 User block-fid
 
 : block-cold
-    defers 'cold  block-fid off  last-block off
+    block-fid off  last-block off
     buffers buffer-struct drop * allocate throw dup block-buffers !
     buffers buffer-struct drop * erase ;
 
-' block-cold IS 'cold
+' block-cold INIT8 chained
 
 block-cold
 
@@ -59,7 +59,7 @@ Defer flush-blocks
 
 : open-blocks ( addr u -- ) \ gforth
     \g use the file, whose name is given by @var{addr u}, as blocks file 
-    2dup ['] open-path-file catch 0<>
+    2dup ['] open-fpath-file catch 0<>
     if
 	2drop r/w bin create-file throw
     else
@@ -168,12 +168,12 @@ User scr 0 scr !
   pop-file ( throw ) ;
 
 : thru ( i*x n1 n2 -- j*x )
-  1+ swap 0 ?DO  I load  LOOP ;
+  1+ swap ?DO  I load  LOOP ;
 
 : +load ( i*x n -- j*x )  blk @ + load ;
 
 : +thru ( i*x n1 n2 -- j*x )
-  1+ swap 0 ?DO  I +load  LOOP ;
+  1+ swap ?DO  I +load  LOOP ;
 
 : --> ( -- )  refill drop ; immediate
 
@@ -192,4 +192,4 @@ true constant block
 true constant block-ext
 set-current
 
-: bye  ['] flush catch drop bye ;
\ No newline at end of file
+: bye  ['] flush catch drop bye ;