--- cf.schmorp.de/server/ext/cfplus.ext	2007/07/23 21:02:50	1.9
+++ cf.schmorp.de/server/ext/cfplus.ext	2007/11/14 08:09:46	1.10
@@ -196,8 +196,8 @@
       my ($pl, $dir) = @_;
 
       # must delay a bit :/
-      Event->timer (after => 0, cb => sub {
-         $_[0]->w->cancel;
+      my $delay; $delay = EV::timer 0, 0, sub {
+         undef $delay;
 
          if (my $dialog = $pl->{npc_dialog}) {
             my (undef, $dx, $dy) = $pl->ob->rangevector ($dialog->{npc});