Can't put test for componly in execword

src/toolsrc/plforth.pla

@@ -935,11 +935,6 @@ end
 // Execute code in CFA
 //
 def execword(dentry)#0
-  if ^_ffa_(dentry) & componly_flag and not (state & comp_flag)
-    puts(dentry)
-    puts(" : Compile only word\n")
-    _quit_
-  fin
   when conio:keypressed()
     is $83 // CTRL-C
       getc // Clear KB
@@ -1043,6 +1038,11 @@ def interpret#0
     dentry = find(inchars, inlen)
     if dentry
       if ^_ffa_(dentry) & imm_flag or not (state & comp_flag)
+        if ^_ffa_(dentry) & componly_flag and not (state & comp_flag)
+          puts(dentry)
+          puts(" : Compile only word\n")
+          _quit_
+        fin
         execword(dentry)
       else
         compword(dentry)