.

original commit: 872a4027e6aacbb922afcbf6c5a899f6734f6171

collects/mzlib/private/unitidmap.ss

@@ -3,6 +3,9 @@
 
   ;; Help Desk binding info:
   (define (binding binder bound stx)
+    stx
+    ;; This 'bound-in-source is no longer needed
+    #;
     (syntax-property
      stx
      'bound-in-source

collects/mzlib/unit.ss

@@ -119,7 +119,9 @@
 				       #f
 				       "bad syntax (illegal use of `.')"
 				       defn-or-expr))
-				    (expand-all l))]
+				    (expand-all (map (lambda (s)
+						       (syntax-track-origin s defn-or-expr #'begin))
+						     l)))]
 				 [else (list defn-or-expr)]))
 			     expanded))))])
 	       (let ([all-expanded (expand-all (syntax->list (syntax (defn&expr ...))))])