diff --git a/images/apple/PLFORTH.PO b/images/apple/PLFORTH.PO
index abd4433..0683cd3 100755
Binary files a/images/apple/PLFORTH.PO and b/images/apple/PLFORTH.PO differ
diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla
index 7b7f5a3..ad42a45 100644
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@@ -1179,6 +1179,7 @@ def newdict#0
 end
 def _plasma_(a)#0
   newdict
+  ^(_ffa_(vlist)) = showcr_flag
   *(_cfa_(vlist)) = a  // PLASMA code address
   addhash(vlist)
 end
@@ -1258,6 +1259,7 @@ def _colon_#0
     ^(_ffa_(vlist)) = itc_flag | showcr_flag
     *(_cfa_(vlist)) = @_docolon_
   else // comp_pbc_flag
+    ^(_ffa_(vlist)) = showcr_flag
     _dictaddb_(JSR); _dictaddw_(vmvect)
   fin
   if state & trace_flag