--- deliantra/maps/perl/chat.ext	2006/08/29 07:58:35	1.35
+++ deliantra/maps/perl/chat.ext	2006/08/30 08:34:20	1.36
@@ -72,7 +72,7 @@
       my ($map, $x, $y) = ($who->map, $who->x - 2, $who->y - 2);
 
       for my $npc (
-         grep +($_->invoke (cf::EVENT_OBJECT_SAY, $who, $msg) && return) || NPC_Dialogue::has_dialogue $_,
+         grep +($_->invoke (cf::EVENT_OBJECT_SAY, $who->contr, $msg) && return) || NPC_Dialogue::has_dialogue $_,
             map +($_, $_->inv),
                grep $_,
                   map $map->at ($x + $_ % 5, $y + (int $_ / 5)),