--- gforth/Attic/dumpimage.fs	1996/08/21 14:58:39	1.7
+++ gforth/Attic/dumpimage.fs	1996/12/23 15:07:44	1.8
@@ -35,8 +35,8 @@
     U+DO
         addr i 2* cells + 2@ save-string-dict
 	new-addr i 2* cells + 2!
-    LOOP ;
-
+    LOOP
+    maxalign ;
 
 : dump-fi ( addr u -- )
     w/o bin create-file throw >r