Empty define-record-type constructor not working

Given code:

(import (scheme base)
        (scheme write))

(define-record-type foo
  (make-foo)
  foo?
  (bar bar-get bar-set!))

(define second-bar-get bar-get)

tr7 gives error:

Error: unbound variable: bar-get
   #0 at main.scm:9 args ()

No other implementation gives this error. If I change line 5 to:

(make-foo bar)

tr7 does not give error anymore.