diff --git a/basis/compiler/cfg/linear-scan/allocation/state/state-tests.factor b/basis/compiler/cfg/linear-scan/allocation/state/state-tests.factor
index 517546cffb..260e9b7720 100644
--- a/basis/compiler/cfg/linear-scan/allocation/state/state-tests.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/state/state-tests.factor
@@ -106,9 +106,9 @@ ${
 ] unit-test
 
 ! align-spill-area
-{ t } [
+${ cell } [
     3 { } insns>cfg [ align-spill-area ] keep
-    spill-area-align>> cell =
+    spill-area-align>>
 ] unit-test
 
 ! inactive-intervals-for
diff --git a/basis/compiler/cfg/utilities/utilities.factor b/basis/compiler/cfg/utilities/utilities.factor
index dc535d46c2..f177b11112 100644
--- a/basis/compiler/cfg/utilities/utilities.factor
+++ b/basis/compiler/cfg/utilities/utilities.factor
@@ -6,7 +6,7 @@ kernel locals make math namespaces sequences sets ;
 IN: compiler.cfg.utilities
 
 : block>cfg ( bb -- cfg )
-    cfg new swap >>entry ;
+    f f rot <cfg> ;
 
 : insns>block ( insns n -- bb )
     <basic-block> swap >>number swap V{ } like >>instructions ;