[plt-scheme] R6RS and PLoT

In R5RS, the example from the docs works fine:
#lang scheme
(require plot)
(define data1 (list (vector 1 1 2)
                    (vector 2 2 2)))
(plot (error-bars data1))


In R6RS, not so much success:
#!r6rs
(import (rnrs base (6))
        (plot))
(define data1 (list (vector 1 1 2)
                    (vector 2 2 2)))
(plot (error-bars data1))

Results in
map: expects type <proper list> as 2nd argument, given: {#(1 1 2) #(2 2 
2)}; other arguments were: #<procedure:vector-y>