diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla
index 1a37701b..ac06c107 100644
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@@ -95,7 +95,7 @@ const hidden_flag   = $80
 predef _drop_(a)#0, _swap_(a,b)#2, _dup_(a)#2, _dashdup_(a)#1, _over_(a,b,c)#4, _rot_(a,b,c)#3
 predef _add_(a,b)#1, _inc_(a)#1, _inc2_(a)#1, _dec_(a)#1, _dec2_(a)#1
 predef _sub_(a,b)#1, _mul_(a,b)#1, _div_(a,b)#1
-predef _neg_(a)#1, _and_(a,b)#1, _or_(a,b)#1, _xor_(a,b)#1, _compliment_(a)#1, _not_(a)#1
+predef _neg_(a)#1, _and_(a,b)#1, _or_(a,b)#1, _xor_(a,b)#1, _complement_(a)#1, _not_(a)#1
 predef _mod_(a,b)#1, _abs_(a)#1, _max_(a,b)#1, _min_(a,b)#1
 predef _lshift_(a,b)#1, _rshift_(a,b)#1
 predef _cset_(a,b)#0, _cget_(a)#1, _wset_(a,b)#0, _wplusset_(a,b)#0, _wget_(a)#1
@@ -200,14 +200,14 @@ word = @d_and, 0, @_or_, $96
 char d_xor = "XOR"
 byte = inline_flag
 word = @d_or, 0, @_xor_, $98
-// COMPLIMENT
-char d_compliment = "COMPLIMENT"
+// COMPLEMENT
+char d_complement = "COMPLEMENT"
 byte = inline_flag
-word = @d_xor, 0, @_compliment_, $92
+word = @d_xor, 0, @_complement_, $92
 // NOT
 char d_not = "NOT"
 byte = inline_flag
-word = @d_compliment, 0, @_not_, $80
+word = @d_complement, 0, @_not_, $80
 // LEFT SHIFT
 char d_lshift = "LSHIFT"
 byte = inline_flag
@@ -1122,7 +1122,7 @@ end
 def _xor_(a,b)#1
   return a ^ b
 end
-def _compliment_(a)#1
+def _complement_(a)#1
   return ~a
 end
 def _not_(a)#1