--- deliantra/Deliantra-Client/DC/Protocol.pm	2007/08/22 21:14:06	1.162
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2007/08/22 21:17:32	1.163
@@ -564,13 +564,19 @@
       $sktbl->add_at (@add);
    }
 
-   for (grep exists $stats->{$_}, @skills) {
-      next if $prev->{$_} == $stats->{$_};
+   for (@order) {
+      my ($idx, $name) = @$_;
+      my $val = $stats->{$idx};
 
-      my $sw = $self->{skillwid}{$_};
-      $sw->[0]->set_text (::formsep ($stats->{$_}[1]));
-      $sw->[1]->set_text ($stats->{$_}[0] * 1);
-      $sw->[2]->set_value (@{$stats->{$_}});
+      next if $prev->{$idx}[1] == $val->[1];
+
+      my $sw = $self->{skillwid}{$idx};
+      $sw->[0]->set_text (::formsep ($val->[1]));
+      $sw->[1]->set_text ($val->[0] * 1);
+      $sw->[2]->set_value (@$val);
+
+      #$::GAUGES->{sklprg}->set_label ($name);
+      $::GAUGES->{sklprg}->set_value (@$val);
    }
 }