diff --git a/scheme/last-revision b/scheme/last-revision
index 805e7ae..2358ac3 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1754
+1755
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index f8b0296..e4f32ee 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -1260,8 +1260,7 @@
                        (let ((v ,expr))
                          (if (procedure? v)
                              (make-traced-procedure ',who v)
-                             (assertion-violation 'trace-define
-                                "not a procedure" v)))))
+                             v))))
              (stx-error stx "invalid name"))))))
   
   (define trace-define-syntax-macro