diff --git a/images/apple/PLEIADES-2.21.po b/images/apple/PLEIADES-2.21.po
index 0041f60c..1d1f81aa 100644
Binary files a/images/apple/PLEIADES-2.21.po and b/images/apple/PLEIADES-2.21.po differ
diff --git a/images/apple/UPDATE-2.21.po b/images/apple/UPDATE-2.21.po
index 9a0c723b..14ea99f2 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 956000a3..b5bf6c08 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 - 1024 // 2048
+    codebufsz    = heapavail - 2048
     codebuff     = heapalloc(codebufsz)
     codeptr      = codebuff
     lastglobal   = idglobal_tbl
diff --git a/src/toolsrc/parse.pla b/src/toolsrc/parse.pla
index f922abc2..7da37d27 100644
--- a/src/toolsrc/parse.pla
+++ b/src/toolsrc/parse.pla
@@ -805,6 +805,7 @@ def parse_stmnt
             caseval     = heapalloc(CASENUM*2)
             casetyp     = heapalloc(CASENUM*2)
             casetag     = heapalloc(CASENUM*2)
+            if not caseval or not casetyp or not casetag; exit_err(ERR_OVER); fin
             casecnt     = 0
             seq, cfnvals = parse_expr(NULL)
             if !seq; exit_err(ERR_INVAL|ERR_STATE); fin