--- deliantra/server/lib/cf.pm	2007/01/21 21:28:27	1.189
+++ deliantra/server/lib/cf.pm	2007/01/22 03:44:41	1.190
@@ -2480,7 +2480,7 @@
 $TICK_WATCHER = Event->timer (
    reentrant => 0,
    parked    => 1,
-   prio      => 0,
+   prio      => -1,
    at        => $NEXT_TICK || $TICK,
    data      => WF_AUTOCANCEL,
    cb        => sub {
@@ -2499,6 +2499,9 @@
       $WAIT_FOR_TICK->broadcast;
       $WAIT_FOR_TICK_ONE->send if $WAIT_FOR_TICK_ONE->awaited;
 
+      my $AFTER = Event::time;
+      warn $AFTER - $NOW;#d#
+
       # if we are delayed by four ticks or more, skip them all
       $NEXT_TICK = Event::time if Event::time >= $NEXT_TICK + $TICK * 4;