diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 43a81887..4fd6372c 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -627,6 +627,8 @@
      (c:code "NULL"))
     ((eq? (void) exp) ;; Poor man's (void?)
      (c:code "Cyc_VOID"))
+    ((eq? (record-marker2) exp)
+     (c:code "Cyc_RECORD_MARKER"))
     ((pair? exp)
      (c-compile-scalars exp use-alloca immutable))
     ((vector? exp)