(define-syntax use-modules
  (let ((old-use-modules use-modules))
    (syntax-rules ()
      ((use-modules . rest)
       (for-each
        (lambda (m)
          (if (eq? m '(buggy-module))
              (display "don't use module (buggy-module).")
              (apply old-use-modules m)))
        rest)))))