--- gforth/blocks.fs	2000/10/29 20:27:02	1.34
+++ gforth/blocks.fs	2002/09/14 08:34:03	1.35
@@ -108,6 +108,7 @@ Defer flush-blocks ( -- ) \ gforth
     if
 	r@ buffer-block @ block-position
 	r@ block-buffer chars/block  r@ buffer-fid @  write-file throw
+	buffer-fid @ flush-file throw
 	r@ buffer-dirty off
     endif
     rdrop ;