--- gforth/engine/main.c	2009/07/06 18:46:03	1.224
+++ gforth/engine/main.c	2009/08/23 12:14:47	1.225
@@ -1947,7 +1947,7 @@ Address gforth_loader(FILE *imagefile, c
 
   alloc_stacks((ImageHeader *)imp);
   if (clear_dictionary)
-    memset(imp+header.image_size, 0, dictsize-header.image_size);
+    memset(imp+header.image_size, 0, dictsize-header.image_size-preamblesize);
   if(header.base==0 || header.base  == (Address)0x100) {
     Cell reloc_size=((header.image_size-1)/sizeof(Cell))/8+1;
     Char reloc_bits[reloc_size];