diff --git a/module/language/cps/compile-rtl.scm b/module/language/cps/compile-rtl.scm
index 0303d6106..163458e6d 100644
--- a/module/language/cps/compile-rtl.scm
+++ b/module/language/cps/compile-rtl.scm
@@ -222,6 +222,10 @@
          (emit-set-cdr! asm (slot pair) (slot value)))
         (($ $primcall 'define! (sym value))
          (emit-define asm (slot sym) (slot value)))
+        (($ $primcall 'push-fluid (fluid val))
+         (emit-push-fluid asm (slot fluid) (slot val)))
+        (($ $primcall 'pop-fluid ())
+         (emit-pop-fluid asm))
         (($ $primcall 'unwind ())
          (emit-unwind asm))
         (($ $primcall name args)