(cond-expand
 ((or chicken-5.0 chicken-5.1 chicken-5.2)
  (import (rename (chicken time)
                  (current-milliseconds current-process-milliseconds))))
 (else
  (import (chicken time))))