bytevector-ieee-double-ref for big-endian uses the wrong index

$ ikarus
Ikarus Scheme version 0.0.3+ (revision 1673, build 2008-11-13, 64-bit)
Copyright (c) 2006-2008 Abdulaziz Ghuloum

> (let ((b (make-bytevector 16 0)))
    (bytevector-ieee-double-set! b 0 2.71 (endianness big))
    (bytevector-ieee-double-set! b 8 3.14 (endianness big))
    (values
     (bytevector-ieee-double-ref b 0 (endianness big))
     (bytevector-ieee-double-ref b 8 (endianness big))))
2.71
2.71
>

It would seem that index 0 is used no matter what index is given.