--- deliantra/server/ext/chat.ext	2007/07/24 16:42:35	1.27
+++ deliantra/server/ext/chat.ext	2007/07/24 22:49:40	1.28
@@ -842,7 +842,7 @@
    return if $pl->invoke (cf::EVENT_PLAYER_CHAT, $msg);
 
    if ($msg) {
-      my $name = $pl->name;
+      my $name = $ob->name;
       my $NOW = time;
 
       cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", $name, $msg;
@@ -857,7 +857,7 @@
 };
 
 cf::register_command shout => sub {
-   my ($pl, $msg) = @_;
+   my ($ob, $msg) = @_;
 
    utf8::decode $msg;
 
@@ -867,7 +867,7 @@
 
    if ($msg) {
       my $NOW = time;
-      my $name = $pl->name;
+      my $name = $ob->name;
 
       cf::LOG cf::llevDebug, sprintf "QBERT {%s} %s\n", $name, $msg;
       send_irc ("\007\0034{%s} %s\n", $name, $msg);