diff --git a/basis/compiler/cfg/build-stack-frame/build-stack-frame-tests.factor b/basis/compiler/cfg/build-stack-frame/build-stack-frame-tests.factor
index c60a44ab53..cb00917974 100644
--- a/basis/compiler/cfg/build-stack-frame/build-stack-frame-tests.factor
+++ b/basis/compiler/cfg/build-stack-frame/build-stack-frame-tests.factor
@@ -1,5 +1,6 @@
-USING: compiler.cfg.build-stack-frame compiler.cfg.stack-frame
-cpu.x86 math slots.syntax tools.test ;
+USING: accessors compiler.cfg compiler.cfg.build-stack-frame
+compiler.cfg.stack-frame cpu.x86 kernel math namespaces slots.syntax
+tools.test ;
 IN: compiler.cfg.build-stack-frame.tests
 
 {
@@ -22,3 +23,8 @@ IN: compiler.cfg.build-stack-frame.tests
     ! on all other platforms.
     reserved-stack-space -
 ] unit-test
+
+{ f } [
+    t frame-required? set
+    f f <basic-block> <cfg> dup build-stack-frame stack-frame>>
+] unit-test
diff --git a/basis/compiler/cfg/build-stack-frame/build-stack-frame.factor b/basis/compiler/cfg/build-stack-frame/build-stack-frame.factor
index 99dc7661d3..a0bae5ced4 100644
--- a/basis/compiler/cfg/build-stack-frame/build-stack-frame.factor
+++ b/basis/compiler/cfg/build-stack-frame/build-stack-frame.factor
@@ -74,6 +74,7 @@ M: insn compute-stack-frame* drop ;
     bi ;
 
 : build-stack-frame ( cfg -- )
+    f frame-required? set
     0 param-area-size set
     0 allot-area-size set
     cell allot-area-align set