--- gforth/blocks.fs	2007/12/31 18:40:23	1.53
+++ gforth/blocks.fs	2008/05/18 19:30:48	1.54
@@ -124,7 +124,7 @@ Defer flush-blocks ( -- ) \ gforth
     rdrop ;
 
 : empty-buffer ( buffer -- ) \ gforth
-    buffer-block off ;
+    dup buffer-block on buffer-dirty off ;
 
 : save-buffers  ( -- ) \ block
     \G Transfer the contents of each @code{update}d block buffer to