diff --git a/contrib/10.macro/macro.scm b/contrib/10.macro/macro.scm
index 759d410d..4b1d004f 100644
--- a/contrib/10.macro/macro.scm
+++ b/contrib/10.macro/macro.scm
@@ -62,7 +62,7 @@
           ((f (lambda (var)
                 (let loop ((free free))
                   (if (null? free)
-                      (wrap free)
+                      (wrap var)
                       (if (identifier=? var (car free))
                           var
                           (loop (cdr free))))))))