--- deliantra/Deliantra-Client/DC/Protocol.pm	2008/03/25 19:28:54	1.191
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2008/03/27 20:42:23	1.192
@@ -1468,7 +1468,7 @@
    $self->{options}->clear;
    $self->{options}->add ($self->{bye_button});
 
-   for my $kw (sort keys %{ $self->[DC::Pod::N_KW] }) {
+   for my $kw (sort keys %{ $self->{kw} }) {
       $self->{options}->add (new DC::UI::Button
          text => $kw,
          on_activate => sub {
@@ -1487,12 +1487,12 @@
    if ($type eq "update") {
       my (%info) = @arg;
 
-      $self->[DC::Pod::N_KW]{$_} = 1 for @{$info{add_topics} || []};
-      $self->[DC::Pod::N_KW]{$_} = 0 for @{$info{del_topics} || []};
+      $self->{kw}{$_} = 1 for @{$info{add_topics} || []};
+      $self->{kw}{$_} = 0 for @{$info{del_topics} || []};
       
       if (exists $info{msg}) {
          my $text = "\n" . DC::Protocol::sanitise_xml $info{msg};
-         my $match = join "|", map "\\b\Q$_\E\\b", sort { (length $b) <=> (length $a) } keys %{ $self->[DC::Pod::N_KW] };
+         my $match = join "|", map "\\b\Q$_\E\\b", sort { (length $b) <=> (length $a) } keys %{ $self->{kw} };
          my @link;
          $text =~ s{
             ($match)