diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index b74f96a24e..a35706697c 100644
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@@ -13,13 +13,13 @@ SYMBOL: new-definitions
 
 TUPLE: redefine-error def ;
 
-: redefine-error ( definition -- )
+: throw-redefine-error ( definition -- )
     \ redefine-error boa throw-continue ;
 
 <PRIVATE
 
 : add-once ( key set -- )
-    2dup in? [ over redefine-error ] when adjoin ;
+    2dup in? [ over throw-redefine-error ] when adjoin ;
 
 : (remember-definition) ( definition loc set -- )
     [ over set-where ] dip add-once ;
@@ -33,7 +33,7 @@ PRIVATE>
     old-definitions get [ delete ] with each ;
 
 : remember-class ( class loc -- )
-    [ dup new-definitions get first in? [ dup redefine-error ] when ] dip
+    [ dup new-definitions get first in? [ dup throw-redefine-error ] when ] dip
     new-definitions get second (remember-definition) ;
 
 : forward-reference? ( word -- ? )