diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index 386d5750bf..9fe13ba3ed 100644
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@@ -51,7 +51,8 @@ HOOK: update-call-sites compiler-impl ( class generic -- words )
 M: generic update-generic ( class generic -- )
     [ changed-call-sites ]
     [ remake-generic drop ]
-    2bi ;
+    [ changed-conditionally drop ]
+    2tri ;
 
 M: sequence update-methods ( class seq -- )
     implementors [ update-generic ] with each ;