@verb #0:"checkpoint_started" this none this rxdo #55
@program #0:"checkpoint_started" this none this
if (valid(caller_perms()))
  return
endif
"forked = `args[1] ! E_RANGE => 1';"
forked = 1
$running_checkpoint = time()
if (forked)
  $wiz_utils:guard_alert("Checkpoint begun; ", $time_utils:english_time((time() - $last_checkpoint_time + 30) / 60 * 60), " after last successful checkpoint.")
else
  $wiz_utils:moo_alertall("Checkpoint begun, please wait while it completes.")
  this.checkpoint_unforked = 1
endif
.