--- deliantra/server/ext/dmcommands.ext	2007/06/03 17:05:35	1.20
+++ deliantra/server/ext/dmcommands.ext	2007/09/19 21:56:30	1.23
@@ -1,4 +1,4 @@
-#! perl # MANDATORY
+#! perl # mandatory
 
 # wizard commands
 
@@ -43,6 +43,8 @@
    return unless $ob->may ("command_teleport");
 
    cf::async {
+      $Coro::current->{desc} = "teleport $arg";
+
       my $other = cf::player::find $arg
          or return $ob->reply (undef, "$arg: no such player.");
 
@@ -93,7 +95,7 @@
 
    return unless $ob->may ("command_wizlook");
 
-   $ob->clear_los;
+   $ob->contr->clear_los;
 
    $ob->reply (undef, "You can temporarily see through walls.");
 
@@ -111,6 +113,7 @@
    $_->enter_link for @pl;
    cf::async {
       my $name = $map->visible_name;
+      $Coro::current->{desc} = "reset $name";
 
       $map->reset;
       $_->leave_link for @pl;