diff --git a/module/language/tree-il/compile-bytecode.scm b/module/language/tree-il/compile-bytecode.scm
index f9c7221e5..ec3fba777 100644
--- a/module/language/tree-il/compile-bytecode.scm
+++ b/module/language/tree-il/compile-bytecode.scm
@@ -840,7 +840,7 @@ in the frame with for the lambda-case clause @var{clause}."
                (khandler (gensym "handler"))
                (done (gensym "done")))
 
-           (emit-prompt src tag escape-only? proc-slot khandler)
+           (emit-prompt asm tag escape-only? proc-slot khandler)
            (match ctx
              ('tail
               ;; Would be nice if we could invoke the body in true tail