diff --git a/images/apple/PLFORTH.PO b/images/apple/PLFORTH.PO
index 4570e96..94c60ee 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 ac345c6..02bdf3c 100644
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@@ -106,9 +106,9 @@ predef _begin_#0, _again_#0, _until_#0, _while_#0, _repeat_#0
 predef _case_#0, _of_#0, _endof_#0, _endcase_#0, _literal_(a)#0
 predef _dodo_(a,b)#0, _do_#0, _doloop_#0, _doplusloop_(a)#0, _plusloop_#0, _loop_#0, _leave_#0, _j_#1
 predef _create_#0, _itcdoes_(a)#0, _does_#0, _compoff_#0, _compon_#0
-predef compword(dentry)#0, _forcecomp_#0, pfillw(a)#0, pfillb(a)#0, _colon_#0, _semi_#0
+predef _forcecomp_#0, pfillw(a)#0, pfillb(a)#0, _colon_#0, _semi_#0
 predef _immediate_#0, _exit_#0, _pad_#1, _trailing_(a,b)#2
-predef _tors_(a)#0, _fromrs_#1, _toprs_#1, _execute_(a)#0, _lookup_#1
+predef _tors_(a)#0, _fromrs_#1, _toprs_#1, _lookup_#1
 predef _move_(a,b,c)#0, _fill_(a,b,c)#0, _plasma_(a)#0
 predef _var_(a)#0, _const_(a)#0, _lit_#1, _slit_#1, _find_(a)#2, _tick_#1
 predef _forget_#0, _terminal_#1, _prat_(a)#0, _prhexat_(a)#0
@@ -121,6 +121,7 @@ predef _brk_#0, _brkon_#0, _brkoff_#0, _word_(a)#1, _count_(a)#2
 predef _space_#0, _spaces_(a)#0, _show_#0, _showstack_#0, _showrstack_#0
 predef _showhash_#0, _cont_#0, _restart_#0, _bye_#0, _quit_#0
 predef _abort_(a)#0, _doabortstr_(a,b)#0, _abortstr_#0
+predef compword(dentry)#0, execword(dentry)#0
 // DROP
 char d_drop = "DROP"
 byte = inline_flag
@@ -279,8 +280,8 @@ byte = inline_flag
 word = @d_cget, 0, @_wget_, $62
 // EXECUTE
 char d_execute = "EXECUTE"
-byte = inline_flag
-word = @d_wget, 0, @_execute_, $56 // ICAL
+byte = 0
+word = @d_wget, 0, @execword
 // TO RSTACK
 char d_torstk = ">R"
 byte = 0
@@ -1176,9 +1177,6 @@ end
 def _wget_(a)#1
   return *a
 end
-def _execute_(a)#0
-  a()#0
-end
 def _ffa_(dentry)#1
   return dentry + ^dentry + 1
 end