--- cf.schmorp.de/maps/perl/commands.ext	2006/09/29 21:59:53	1.8
+++ cf.schmorp.de/maps/perl/commands.ext	2006/10/06 15:29:23	1.10
@@ -66,7 +66,7 @@
          . " [" . $pl->client . "]"
          . " [" . ($pl->peaceful || $privileged ? $ob->map->path : $ob->map->region ? $ob->map->region->name : "the unknown") . "]"
          . ($privileged ? " " . $pl->host : "")
-      } sort { $a->ob->name cmp $b->ob->name } @pl
+      } sort { (lc $a->ob->name) cmp (lc $b->ob->name) } @pl
    )
 }
 
@@ -79,7 +79,7 @@
 cf::register_command rename => $cf::TICK, sub {
    my ($ob, $arg) = @_;
 
-   if ($arg =~ /^\s* (?: <([^>]+)> \s+)? to \s+ <([^>]+)> \s*$/x) {
+   if ($arg =~ /^\s* (?: <([^>]+)> \s+)? to \s+ <([^>]*)> \s*$/x) {
       # compatibility syntax
       rename_to $ob, $1, $2;
    } elsif ($arg =~ /