diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index cde6ddc0..52c51114 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -543,6 +543,7 @@
      ((eq? p 'integer?)      "Cyc_is_integer")
      ((eq? p 'pair?)         "Cyc_is_cons")
      ((eq? p 'procedure?)    "Cyc_is_procedure")
+     ((eq? p 'macro?)        "Cyc_is_macro")
      ((eq? p 'port?)         "Cyc_is_port")
      ((eq? p 'vector?)       "Cyc_is_vector")
      ((eq? p 'string?)       "Cyc_is_string")
diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 94b74f3c..aeb95186 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -713,6 +713,7 @@
      pair?
      port?
      procedure?
+     macro?
      vector?
      string?
      symbol?
diff --git a/scheme/eval.sld b/scheme/eval.sld
index 0c4aad4a..8ac83d3c 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -287,6 +287,7 @@
       (list 'pair? pair?)
       (list 'port? port?)
       (list 'procedure? procedure?)
+      (list 'macro? macro?)
       (list 'vector? vector?)
       (list 'string? string?)
       (list 'symbol? symbol?)