blockhandle -1 <> if flush close-file drop then
 -1 set-blockfile

 : CLOSE-BLOCKFILE 
   BLOCK-FILE ?DUP IF FLUSH CLOSE-FILE DROP THEN 
   OFF> BLOCK-FILE ;