--- deliantra/maps/perl/commands.ext	2006/09/29 20:33:24	1.7
+++ deliantra/maps/perl/commands.ext	2006/09/29 21:59:53	1.8
@@ -73,7 +73,7 @@
 cf::register_command who => $cf::TICK, sub {
    my ($ob, $arg) = @_;
 
-   $ob->reply (undef, (join "\n", who_listing $ob->flag (cf::FLAG_WIZ)), cf::NDI_UNIQUE | cf::NDI_GOLD);
+   $ob->reply (undef, (join "\n", who_listing $ob->flag (cf::FLAG_WIZ)), cf::NDI_UNIQUE | cf::NDI_DK_ORANGE);
 };
 
 cf::register_command rename => $cf::TICK, sub {