Update (COMPILE) -> COMPILE,

src/toolsrc/plforth.pla

@@ -506,7 +506,7 @@ char d_compon = "]"
 byte = interponly_flag
 word = @d_compoff, 0, @_compon_
 // COMPILE WORD ON STACK
-char d_compword = "(COMPILE)"
+char d_compword = "COMPILE,"
 byte = componly_flag
 word = @d_compon, 0, @_compword_
 // POSTPONE (COMPILE) NEXT WORD
@@ -1031,9 +1031,9 @@ def _compword_(dentry)#0
   if ^_ffa_(dentry) & interponly_flag
     puts("INTERP only word\n")
     _quit_
-  elsif state & comp_itc_flag
+  elsif comp_mode & comp_itc_flag
     _dictaddw_(dentry)
-  elsif state & comp_pbc_flag
+  elsif comp_mode & comp_pbc_flag
     if ^_ffa_(dentry) & itc_flag // Check if calling ITC word
       _dictaddb_($2C)    // CONSTANT WORD
       _dictaddw_(dentry) // Pointer to dictionary entry
@@ -1847,7 +1847,7 @@ def _see_#0
     if ^_ffa_(dentry) & imm_flag; puts(" IMMEDIATE"); fin
     if ^_ffa_(dentry) & componly_flag; puts(" COMPILE-ONLY"); fin
     if ^_ffa_(dentry) & interponly_flag; puts(" INTERPRET-ONLY"); fin
-    putln 
+    putln
     if ^_ffa_(dentry) & itc_flag // Only show ITC words
       puts("-----\n")
       when *_cfa_(dentry)