--- deliantra/server/ext/chat.ext	2007/05/19 11:04:16	1.17
+++ deliantra/server/ext/chat.ext	2007/06/19 17:32:56	1.19
@@ -1,4 +1,4 @@
-#! perl
+#! perl # depends=irc
 #CONVERSION: PARTIAL
 
 # implement a replacement for the built-in say/chat/shout/tell/reply commands
@@ -785,7 +785,7 @@
          # if some listener teleported us somewhere else, stop right here
          last unless $map->path == $pl->map->path;
 
-         my $dialog = new NPC_Dialogue ob => $pl, npc => $npc;
+         my $dialog = new NPC_Dialogue pl => $pl->contr, npc => $npc;
          my ($reply, @kw) = $dialog->tell ($msg);
 
          if (defined $reply) {