ir-macro-expander's compare + define-syntax + modules don't mix

[megane]

This snippet is supposed to print "it is x", but doesn't if there's a macro called x in the module.

module
 m
 (foo)
 ;; (import chicken scheme)
 (import (chicken syntax) scheme)

 ;; (define-syntax x (ir-macro-transformer (lambda _ `(begin))))

 ;; (define (x) (begin)) ;; This is OK

 (define-syntax foo
   (ir-macro-transformer
    (lambda (e inj cmp)
      (apply
       (lambda (a)
         (if (cmp 'x a) "it is x" "fail"))
       (cdr e))))))

(import m)
(print (foo x))