diff --git a/collects/mzlib/private/sigutil.ss b/collects/mzlib/private/sigutil.ss index f80ebfa..a99eedf 100644 --- a/collects/mzlib/private/sigutil.ss +++ b/collects/mzlib/private/sigutil.ss @@ -645,7 +645,9 @@ swapped-renames) (loop (cdr e)) (cons (car e) (loop (cdr e)))))))] - [local-vars (append renamed-internals filtered-exported-names imported-names)] + [local-vars (map (lambda (s) + (datum->syntax-object expr s)) + (append renamed-internals filtered-exported-names imported-names))] [expand-context (generate-expand-context)] [import-stxes (apply append (map (lambda (i) (map