--- deliantra/server/ext/jeweler.ext	2006/12/21 22:41:34	1.2
+++ deliantra/server/ext/jeweler.ext	2007/01/31 14:11:02	1.3
@@ -154,9 +154,9 @@
                   my %keys;
                   my %cdiff;
                   for (keys %$c1, keys %$c2) { $keys{$_} = 1 }
-                  for (keys %keys) { $cdiff{$_} = $c2->{$_} - $c1->{$_} }
+                  for (keys %keys) { $cdiff{$_} = $c2->{$_} - $c1->{$_}; warn "$_: $c2->{$_} | $c1->{$_}\n"; }
 
-                  unless (grep { $_ > 0 } values %cdiff) {
+                  unless ($iring->is_better_than ($ringo)) {
                      $pl->message ("This plan doesn't improve anything, you find yourself puzzled about what you missed...");
                      return;
                   }