diff --git a/scheme/ikarus.trace.ss b/scheme/ikarus.trace.ss
index be7a221..1ed115f 100644
--- a/scheme/ikarus.trace.ss
+++ b/scheme/ikarus.trace.ss
@@ -75,7 +75,7 @@
     (lambda (name x)
       (cond
         [(procedure? x) 
-         (make-traced-procedure name x)]
+         (make-traced-procedure name x syntax->datum)]
         [(variable-transformer? x)
          (make-variable-transformer
            (make-traced-procedure name 
diff --git a/scheme/last-revision b/scheme/last-revision
index effd6e7..f768f58 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1534
+1535