diff --git a/images/apple/PLASMA-2.1-INST.po b/images/apple/PLASMA-2.1-INST.po
index 333adb9..3699aa2 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/PLASMA2.2mg b/images/apple/PLASMA2.2mg
index 3819cd8..ddfb2bb 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 494ddb3..ce6a9c3 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 be17cd9..dc345c3 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 e2c5db2..68ee178 100644
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@@ -1006,9 +1006,7 @@ end
 // Compile a word/literal into the dictionary: ITC and PBC
 //
 def _compword_(dentry)#0
-  if  ^_ffa_(dentry) & imm_flag
-    _execword_(dentry)
-  elsif ^_ffa_(dentry) & interponly_flag
+  if ^_ffa_(dentry) & interponly_flag
     puts("INTERP only word\n")
     _quit_
   elsif state & comp_itc_flag
@@ -1068,15 +1066,15 @@ def _interpret_#0
     inchars, inlen = nextword(' ')
     dentry = find(inchars, inlen)
     if dentry
-      if state & comp_flag
-        _compword_(dentry)
-      else
-        if ^_ffa_(dentry) & componly_flag
+      if not state & comp_flag or ^_ffa_(dentry) & imm_flag
+        if not state & comp_flag and ^_ffa_(dentry) & componly_flag
           puts(dentry)
           puts(" : Compile only word\n")
           _quit_
         fin
         _execword_(dentry)
+      else
+        _compword_(dentry)
       fin
     else
       value, valid = _isnum_(inchars, inlen)
@@ -1806,7 +1804,7 @@ def _show_#0
             break
           otherwise
             puts(w)
-        wend  
+        wend
       else
         puts(w)
       fin
@@ -1921,7 +1919,7 @@ def typelist(typestr, typemask, type)#0
         tab = ^d
       else
         puts(" ")
-      fin 
+      fin
       puts(d)
       if conio:keypressed(); conio:getkey(); conio:getkey(); fin
     fin