diff --git a/module/language/tree-il/compile-bytecode.scm b/module/language/tree-il/compile-bytecode.scm
index deead726f..ac6ffba17 100644
--- a/module/language/tree-il/compile-bytecode.scm
+++ b/module/language/tree-il/compile-bytecode.scm
@@ -910,6 +910,8 @@ in the frame with for the lambda-case clause @var{clause}."
                        (let ((env (push-local name sym env)))
                          (match closure
                            (($ <closure> label code scope free-vars)
+                            ;; FIXME: Allocate one scope per fix.
+                            (maybe-cache-module! scope 0)
                             (emit-maybe-allocate-closure
                              asm (env-idx env) (length free-vars) label 0)
                             env))))