diff --git a/scheme/cyclone/macros.sld b/scheme/cyclone/macros.sld
index 8d3f335a..8114bff0 100644
--- a/scheme/cyclone/macros.sld
+++ b/scheme/cyclone/macros.sld
@@ -115,7 +115,7 @@
             ;; if symbol has been renamed and is not a bound variable,
             ;; undo the rename
             (let ((val (env:lookup expr *macro:renamed-variables* #f)))
-              (if (and val (not (member val bv)))
+              (if (and val (not (member expr bv)))
                   (clean val bv)
                   expr)))
            ((if? expr)