--- gforth/savesys.fs	2007/12/31 18:40:24	1.11
+++ gforth/savesys.fs	2010/12/27 13:16:47	1.12
@@ -60,4 +60,6 @@
     r> close-file throw ;
 
 : savesystem ( "name" -- ) \ gforth
+    ofile 256 chars erase
+    tfile 256 chars erase
     name dump-fi ;