alias readlog {
  if (logstat == [open]) {^hook closelog}
  @ logread = open(${ev.dir}/evolver.msglog R T)
  @ temp = [poqweitpoqwet]
  ^assign -it
  @ old.hold = $hold_mode
  while (temp) {
    ^set hold_mode on
    @ it = it + 1
    @ temp = read($logread)
    fmtlog $temp
  }
  ^do set hold_mode $old.hold
  ^assign -temp
  @ close($logread)
}
