--- gforth/blocks.fs	2006/05/01 09:45:56	1.43
+++ gforth/blocks.fs	2007/02/18 18:51:40	1.48
@@ -1,6 +1,6 @@
 \ A less simple implementation of the blocks wordset. 
 
-\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -79,10 +79,11 @@ Defer flush-blocks ( -- ) \ gforth
 	2dup open-fpath-file throw
 	rot close-file throw  2dup file-status throw bin open-file throw
 	>r 2drop r>
-    recover ( c-addr u ior )
+    restore endtry
+    dup if ( c-addr u ior )
 	>r 2dup file-status nip 0= r> and throw \ does it really not exist?
 	r/w bin create-file throw
-    endtry
+    then
     block-fid @ IF
 	flush-blocks block-fid @ close-file throw
     THEN