--- deliantra/Deliantra-Client/DC/Protocol.pm	2008/03/25 19:21:33	1.190
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2008/03/27 20:42:23	1.192
@@ -29,8 +29,8 @@
    $self->{map_widget}->clr_commands;
 
    my @cmd_help = map {
-      $_->{kw}[0] =~ /^(\S+) (?:\s+ \( ([^\)]*) \) )?/x
-         or die "unparseable command help: $_->{kw}[0]";
+      $_->[DC::Pod::N_KW][0] =~ /^(\S+) (?:\s+ \( ([^\)]*) \) )?/x
+         or die "unparseable command help: $_->[DC::Pod::N_KW][0]";
 
       my $cmd = $1;
       my @args = split /\|/, $2;
@@ -45,7 +45,7 @@
       map ["$cmd$_", $text],
          sort { (length $a) <=> (length $b) }
             @args
-   } sort { $a->{par} <=> $b->{par} }
+   } sort { $a->[DC::Pod::N_PAR] <=> $b->[DC::Pod::N_PAR] }
           DC::Pod::find command => "*";
 
    $self->{json_coder}