--- gforth/blocks.fs	1996/05/07 16:15:21	1.8
+++ gforth/blocks.fs	1996/07/16 20:57:06	1.9
@@ -118,7 +118,7 @@ Defer flush-file
     dup 0= -35 and throw
     dup get-buffer >r
     dup r@ buffer-block @ <>
-    r@ buffer-fid @ block-fid @ <> and
+    r@ buffer-fid @ block-fid @ <> or
     if
 	r@ save-buffer
 	dup block-position