[Fluxus] bb/bb-intersect? broken

[gabor papp]

hi,

while converting the documentation chapter on scene inspection i found 
that the inline help example of (bb/bb-intersect?) does not work.

  (clear)

  (define a (with-state
       (build-sphere 10 10)))

  (define b (with-state
       (translate (vector 2 0 0))
       (build-sphere 10 10)))

  (every-frame
      (begin
          (with-primitive b
              (translate (vector (* -0.1 (sin (time))) 0 0)))
          (with-primitive a
              (when (bb/bb-intersect? b 0)
                  (colour (rndvec))))))

it looks like the bounding box is not transformed, and they are checked 
for inclusion not for intersection.

https://savannah.nongnu.org/bugs/?29118

best,
gabor