Array weirdness?

[Miroslav Silovic]

guile>    
(version)
"1.4"
guile> 
(begin (define a (make-uniform-array 1/3 8 50 3))
             (array-index-map! a (lambda (x y z) (+ x y z)))
             (define a1 (make-uniform-array 1/3 8 50 3))
             (array-index-map! a1 (lambda (x y z) (+ x y z)))
             (array-copy! (make-shared-array a (lambda (x k) (list 7 x k)) 50 
3) (make-shared-array a (lambda (x k) (list 0 x k)) 50 3))
             (array-equal? a a1))
#t
guile> 

(after printing a, it did show that a wasn't changed). This really
blocks SART for me, and while I'm going to look into Guile myself, I
wonder if anybody fixed this (or if anybody can point offhand to
what's been modified between 1.3.4 and 1.4).

-- 
How to eff the ineffable?