--- gforth/kernel/int.fs	1999/11/08 22:01:10	1.40
+++ gforth/kernel/int.fs	1999/11/14 10:22:27	1.41
@@ -348,6 +348,9 @@ const Create ???  0 , 3 c, char ? c, cha
     \ iteration, we may get an xt, on the second a code address (or
     \ some code), which is typically not in the dictionary.
     2 0 do
+	dup dup aligned <> if \ protect @ against unaligned accesses
+	    drop false unloop exit
+	then
 	dup @ dup
 	if ( addr addr1 )
 	    dup rot forthstart within