Macros in DrScheme 103

[Zbyszek Jurkiewicz <zbyszek@duch.mimuw.edu.pl>]

In DrScheme 103 I obtain the following (strange) behavior:

> (define-macro foo (lambda (x) `(f1 ,x ,x)))
> (expand-defmacro '(foo 1))
(foo 1)

while it works correctly in plain MzScheme and in MrEd:

> (define-macro foo (lambda (x) `(f1 ,x ,x)))
> (expand-defmacro '(foo 1))
(f1 1 1)

Is it intended for some reason or is it plain error?

Best regards,

Zbyszek Jurkiewicz