Comment 2 for bug 160972

In ikarus.numerics.ss change in the next to last line
the x to a v.

  (define (fltruncate x)
    (unless (flonum? x)
      (error 'fltruncate "not a flonum" x))
    (let ([v ($flonum->exact x)])
      (cond
        [(ratnum? v) (exact->inexact ($ratnum-truncate v))]
        [else x])))