--- a/joker	Fri Aug 08 11:11:02 2014 +0200
+++ b/joker	Fri Aug 08 11:26:44 2014 +0200
@@ -18,7 +18,7 @@
 );
 
 given (+shift) {
-    when ('request') {
+    when ('register') {
         my $domain = +shift // die "$0: need domain\n";
         my $proc_id = $joker->do_request(
             'domain-register',
@@ -33,7 +33,7 @@
         );
         say "ID: $proc_id"
     }
-    when ('result') {
+    when ([qw(status result)]) {
         my $id     = shift;
         my %result = $joker->result_list;
         foreach (
@@ -50,7 +50,7 @@
 
     }
     default {
-        die "$0 [request domain|result [id]]\n"
+        die "$0 [register domain|result [id]]\n"
     }
 }