diff --git a/src/libsrc/apple/jit.pla b/src/libsrc/apple/jit.pla
index 7d60480..034aaee 100644
--- a/src/libsrc/apple/jit.pla
+++ b/src/libsrc/apple/jit.pla
@@ -1266,6 +1266,7 @@ def compiler(defptr)#0
                     if not A_IS_TOSL
                         ^codeptr = $B5;    codeptr++ // LDA zp,X
                         ^codeptr = $D0+VX; codeptr++ // ESTKL
+                        A_IS_TOSL = TOSL_CLEAN
                     fin
                     ^codeptr = $8D;    codeptr++ // STA abs
                     *codeptr = *(bytecode+i);   codeptr = codeptr + 2
@@ -1275,7 +1276,6 @@ def compiler(defptr)#0
                     *codeptr = *(bytecode+i)+1; codeptr = codeptr + 2
                     ^codeptr = $A0;    codeptr++ // LDY #imm
                     ^codeptr = $00;    codeptr++ // $00
-                    A_IS_TOSL = TOSL_CLEAN
                     i++
                     break
                 // LNOT,ADD,SUB,MUL,DIV,MOD,INCR,DECR                      ; 80 82 84 86 88 8A 8C 8E
diff --git a/src/toolsrc/codegen.pla b/src/toolsrc/codegen.pla
index adceeea..c06d89f 100644
--- a/src/toolsrc/codegen.pla
+++ b/src/toolsrc/codegen.pla
@@ -435,6 +435,9 @@ def idmatch(nameptr, len, idptr, idcnt)
             //for i = 1 to len
             //    if nameptr->[i - 1] <> idptr->idname.[i]; break; fin
             //next
+            puts(@idptr->idname);putln
+            puti(i); putln
+            puti(len); putln
             if i > len; return idptr; fin
         fin
         idptr = idptr + idptr->idname + t_id