(let ((big (* 1e9 0.267)))
  (print big)
  (print (truncate big))
  (print (inexact->exact big))
  (print (inexact->exact (truncate big))))


267000000.0
267000000.0
8959033344000001/33554432
267000000