diff --git a/blk/328 b/blk/328
index 2ac50ad..5da9201 100644
--- a/blk/328
+++ b/blk/328
@@ -1,14 +1,16 @@
 CODE S=
-    DE  POPqq,
-    HL  POPqq,
-    chkPS,
-    BEGIN,
-        LDA(DE),
-        (HL) CPr,
-        JRNZ, BREAK, ( not equal? break early. NZ is set. )
-        A ORr,   ( if our char is null, stop )
-        HL INCss,
-        DE INCss,
-    JRNZ, AGAIN,
+    DE POPqq, HL POPqq, chkPS,
+    HL DECss, DE DECss,
+    LDA(DE),
+    (HL) CPr,
+    IFZ, ( same size? )
+        B A LDrr, ( loop A times )
+        BEGIN,
+            HL INCss, DE INCss,
+            LDA(DE),
+            (HL) CPr,
+            JRNZ, BREAK, ( not equal? break early. NZ is set. )
+        DJNZ, AGAIN,
+    THEN,
     PUSHZ,
 ;CODE
diff --git a/emul/forth.bin b/emul/forth.bin
index efb3a2d..c1fe1bd 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ