viewport scales weird when visualizing point

[reiniervandijk]

Whenever you draw a curve/surface/brep object and subsequently a point close or on that object, the viewport zooms out bigtime. Hard to replicate, but you see it a little bit already with:

(define-object point-test (base-object)

  :objects
  ((curve :type 'b-spline-curve :pass-down (control-points))
   (point :type 'point :center (the curve start)))

  :computed-slots
  ((control-points (list (make-point -10 0 0)
             (make-point -12 1.0 0.0) 
             (make-point -14 0.7 0.0) 
             (make-point -15 0.0 0.0) 
             (make-point -14 -0.5 0.0) 
             (make-point -12 0.3 0.0) 
             (make-point -10 0 0)))))

first visualize curve, then the point. You'll notice a little zoom out. In my case it zooms out 50 times more...

[genworks]

Open for submissions: $100

First make sure this bug is replicatable.