diff --git a/images/apple/PLASMA-2.1-INST.po b/images/apple/PLASMA-2.1-INST.po
index 4f83ef8..f7303d8 100644
Binary files a/images/apple/PLASMA-2.1-INST.po and b/images/apple/PLASMA-2.1-INST.po differ
diff --git a/images/apple/PLASMA-2.1.po b/images/apple/PLASMA-2.1.po
index 3e5c5b3..e9b2c21 100644
Binary files a/images/apple/PLASMA-2.1.po and b/images/apple/PLASMA-2.1.po differ
diff --git a/images/apple/PLASMA2.2mg b/images/apple/PLASMA2.2mg
index 2927d05..3d35bd2 100644
Binary files a/images/apple/PLASMA2.2mg and b/images/apple/PLASMA2.2mg differ
diff --git a/images/apple/PLFORTH.PO b/images/apple/PLFORTH.PO
index add396c..35ad29c 100644
Binary files a/images/apple/PLFORTH.PO and b/images/apple/PLFORTH.PO differ
diff --git a/images/apple/apple3.hd b/images/apple/apple3.hd
index 76ab7df..d0627f2 100644
Binary files a/images/apple/apple3.hd and b/images/apple/apple3.hd differ
diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla
index 332e063..0252c3c 100644
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@@ -1336,6 +1336,7 @@ def _is_(a)#0
       *_cfa_(dentry) = @_dodefer_
       *_pfa_(dentry) = a
     else // comp_pbc_flag
+      *_cfa_(dentry)       = _cfa_(dentry)
       ^_pfa_(dentry)       = JMP
       *(_pfa_(dentry) + 1) = *_cfa_(a)
     fin