Index: trunk/tools/repair_bad_instance
===================================================================
--- trunk/tools/repair_bad_instance	(revision 33041)
+++ trunk/tools/repair_bad_instance	(revision 33064)
@@ -11,4 +11,6 @@
 use PS::IPP::Config 1.01 qw( :standard );
 
+my $dbname = 'gpc1';
+
 
 my ( $exp_id,
@@ -17,5 +19,4 @@
      $go,
      );
-my $dbname ='gpc1';
 
 # the char to the right of the bar may be used as a single - alias for the longer name
@@ -24,5 +25,5 @@
 	   'exp_id|e=s'     => \$exp_id,
 	   'class_id|c=s'   => \$class_id,
-	   'repair'         => \$go,
+	   'repair|r'       => \$go,
 	   'pretend'        => \$pretend,
 ) or pod2usage( 2 );
@@ -86,5 +87,5 @@
 } else {
     print "No good instances of $uri found. To fix run:\n";
-    my $cmd = "regtool -updateprocessedimfile -set_ignored -exp_id $exp_id -class_id $class_id\n";
+    my $cmd = "regtool -dbname $dbname -updateprocessedimfile -set_ignored -exp_id $exp_id -class_id $class_id\n";
     print "$cmd\n";
     if ($go) {
@@ -95,5 +96,5 @@
 
 if ($fixed) {
-    my $cmd =  "chiptool -revertprocessedimfile -exp_id $exp_id";
+    my $cmd =  "chiptool -dbname $dbname -revertprocessedimfile -exp_id $exp_id";
     print "$cmd\n";
     system $cmd;