diff --git a/basis/compiler/cfg/optimizer/optimizer.factor b/basis/compiler/cfg/optimizer/optimizer.factor
index 52c4c40c09..8e2df04cca 100644
--- a/basis/compiler/cfg/optimizer/optimizer.factor
+++ b/basis/compiler/cfg/optimizer/optimizer.factor
@@ -42,7 +42,7 @@ SYMBOL: check-optimizer?
         copy-propagation
         eliminate-dead-code
         eliminate-write-barriers
-        coalesce
+        destruct-ssa
         delete-empty-blocks
         ?check
     ] with-scope ;
diff --git a/basis/compiler/cfg/ssa/destruction/destruction.factor b/basis/compiler/cfg/ssa/destruction/destruction.factor
index 00f461d6f2..c650782582 100644
--- a/basis/compiler/cfg/ssa/destruction/destruction.factor
+++ b/basis/compiler/cfg/ssa/destruction/destruction.factor
@@ -47,7 +47,7 @@ SYMBOL: seen
 : remove-phis ( cfg -- )
     [ [ remove-phis-from-block ] if-has-phis ] each-basic-block ;
 
-: coalesce ( cfg -- cfg' )
+: destruct-ssa ( cfg -- cfg' )
     dup cfg-has-phis? [
         init-coalescing
         compute-ssa-live-sets
diff --git a/basis/compiler/cfg/value-numbering/value-numbering-tests.factor b/basis/compiler/cfg/value-numbering/value-numbering-tests.factor
index c5b064b2d3..087b73e2c0 100644
--- a/basis/compiler/cfg/value-numbering/value-numbering-tests.factor
+++ b/basis/compiler/cfg/value-numbering/value-numbering-tests.factor
@@ -1191,7 +1191,7 @@ test-diamond
     cfg new 0 get >>entry
     value-numbering
     compute-predecessors
-    coalesce drop
+    destruct-ssa drop
 ] unit-test
 
 [ 1 ] [ 1 get successors>> length ] unit-test