diff --git a/images/apple/PLEIADES-2.20-SYS.po b/images/apple/PLEIADES-2.20-SYS.po
index edebb2a..6ce3908 100644
Binary files a/images/apple/PLEIADES-2.20-SYS.po and b/images/apple/PLEIADES-2.20-SYS.po differ
diff --git a/images/apple/PLEIADES-2.20.po b/images/apple/PLEIADES-2.20.po
index f006f4e..db736c7 100644
Binary files a/images/apple/PLEIADES-2.20.po and b/images/apple/PLEIADES-2.20.po differ
diff --git a/images/apple/PLFORTH.po b/images/apple/PLFORTH.po
index 1f56086..a949d54 100644
Binary files a/images/apple/PLFORTH.po and b/images/apple/PLFORTH.po differ
diff --git a/src/libsrc/apple/portio.pla b/src/libsrc/apple/portio.pla
index ef76d98..49fa771 100644
--- a/src/libsrc/apple/portio.pla
+++ b/src/libsrc/apple/portio.pla
@@ -68,7 +68,7 @@ export asm portRead#1
 +       BIT     FLAG3
         BPL     +
         ORA     #$08
-+       STA     ESTKL,Y
++       STA     ESTKL,X
         RTS
 end
 //export def digitalWrite(pin, val)#0