diff --git a/basis/compiler/cfg/critical-edges/critical-edges.factor b/basis/compiler/cfg/critical-edges/critical-edges.factor
index 92b4f801d6..1000c24752 100644
--- a/basis/compiler/cfg/critical-edges/critical-edges.factor
+++ b/basis/compiler/cfg/critical-edges/critical-edges.factor
@@ -11,9 +11,11 @@ IN: compiler.cfg.critical-edges
     f <simple-block> insert-basic-block ;
 
 : split-critical-edges ( cfg -- )
-    [
+    dup [
         dup successors>> [
             2dup critical-edge?
             [ split-critical-edge ] [ 2drop ] if
         ] with each
-    ] each-basic-block ;
\ No newline at end of file
+    ] each-basic-block
+    cfg-changed
+    drop ;
\ No newline at end of file