(define (current-util-milliseconds)
   (cond-expand
    (chicken-5.0
     (current-milliseconds))
    (chicken-5.1
     (current-milliseconds))
    (chicken-5.2
     (current-milliseconds))
    (else
     (current-process-milliseconds))))