diff --git a/images/apple/PLEIADES-2.20.po b/images/apple/PLEIADES-2.20.po
index d161838..39dbc53 100644
Binary files a/images/apple/PLEIADES-2.20.po and b/images/apple/PLEIADES-2.20.po differ
diff --git a/images/apple/UPDATE-2.21.po b/images/apple/UPDATE-2.21.po
index 90a16df..1e91155 100755
Binary files a/images/apple/UPDATE-2.21.po and b/images/apple/UPDATE-2.21.po differ
diff --git a/src/toolsrc/codegen.pla b/src/toolsrc/codegen.pla
index b5bf6c0..956000a 100644
--- a/src/toolsrc/codegen.pla
+++ b/src/toolsrc/codegen.pla
@@ -589,7 +589,7 @@ def init_idglobal#0
     fixup_addr   = heapalloc(fixup_num*2)
     idglobal_tbl = heapalloc(globalbufsz)
     idlocal_tbl  = heapalloc(localbufsz)
-    codebufsz    = heapavail - 2048
+    codebufsz    = heapavail - 1024 // 2048
     codebuff     = heapalloc(codebufsz)
     codeptr      = codebuff
     lastglobal   = idglobal_tbl