diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index fda4a1b2..84d83e18 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -1194,7 +1194,9 @@
                 ,(if->then new-ast)))
           (else
             new-ast))))
-      ((prim-call? ast)
+      ((and (prim-call? ast)
+            ;; Not a primitive if the identifier has been redefined
+            (not assoc (car ast) renamed))
        (let ((converted
                (cons (car ast) 
                      (map (lambda (a) (convert a renamed))