diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 3cc29766..e8cab862 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -306,6 +306,7 @@
     (define (const-atomic? exp)
       (or (integer? exp)
           (real? exp)
+          (complex? exp)
           ;(string? exp)
           ;(vector? exp)
           ;(bytevector? exp)
diff --git a/scheme/cyclone/util.sld b/scheme/cyclone/util.sld
index aa043d18..0c2c414c 100644
--- a/scheme/cyclone/util.sld
+++ b/scheme/cyclone/util.sld
@@ -169,6 +169,7 @@
 (define (const? exp)
   (or (integer? exp)
       (real? exp)
+      (complex? exp)
       (string? exp)
       (vector? exp)
       (bytevector? exp)