diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 350af8ec..6162cc35 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -574,6 +574,7 @@
                   set-global!
                   set-cell!
                   cell
+                  cons
                   set-car!
                   set-cdr!
                   string-set!