--- cf.schmorp.de/maps/perl/commands.ext	2006/10/06 15:29:23	1.10
+++ cf.schmorp.de/maps/perl/commands.ext	2006/11/08 00:54:11	1.11
@@ -33,7 +33,7 @@
 
   $ob->esrv_update_item (cf::UPD_NAME, $item);
 
-  return 1;
+  1
 }
 
 sub who_listing(;$) {
@@ -74,6 +74,8 @@
    my ($ob, $arg) = @_;
 
    $ob->reply (undef, (join "\n", who_listing $ob->flag (cf::FLAG_WIZ)), cf::NDI_UNIQUE | cf::NDI_DK_ORANGE);
+
+   1
 };
 
 cf::register_command rename => $cf::TICK, sub {
@@ -96,4 +98,7 @@
    } else {
       $ob->reply (undef, 'Syntax error. Rename usage: rename ["oldname"] to "newname"');
    }
+
+   1
 };
+