[plt-scheme] r6rs import problem

Have problem importing following simple library:

<code>
#!r6rs
(library (internal utils)
          (export record record-case)
          (import (rnrs base)
                  (rnrs syntax-case))
          (define-syntax record
            (syntax-rules ()
                          ((_ vars val exp ...)
                           (apply (lambda vars exp ...) val)))))

</code>


Importing top-level program:

<code>
#!r6rs

(import (rnrs)
         (for (internal utils) expand))

(record (r g b) '(aa bb cc) (b g r))
; <<< causes ERROR: "expand: unbound variable in module in: record"
</code>

Any ideas ?

Thanks ahead.

--
Bohdan