Index: trunk/tools/repair_bad_instance
===================================================================
--- trunk/tools/repair_bad_instance	(revision 33064)
+++ trunk/tools/repair_bad_instance	(revision 33196)
@@ -17,4 +17,5 @@
      $class_id,
      $pretend,
+     $repair_lost,
      $go,
      );
@@ -26,4 +27,5 @@
 	   'class_id|c=s'   => \$class_id,
 	   'repair|r'       => \$go,
+           'repair-lost|l'  => \$repair_lost,
 	   'pretend'        => \$pretend,
 ) or pod2usage( 2 );
@@ -50,11 +52,20 @@
 my $file = $stmt->fetchrow_hashref();
 
+if (!$file) {
+    print STDERR "failed to find rawImfile for $exp_id $class_id\n";
+    exit 1;
+}
 my $uri = $file->{uri};
 my $ignored = $file->{ignored};
+
+if (!$uri) {
+    print STDERR "failed to find uri for $exp_id $class_id\n";
+    exit 1;
+}
 
 my $output = `neb-locate -p -a $uri`;
 
 if (!$output) {
-    die "failed to locate any instances for $uri\n";
+    print STDERR "WARNING failed to locate any instances for $uri\n";
 }
 
@@ -89,5 +100,5 @@
     my $cmd = "regtool -dbname $dbname -updateprocessedimfile -set_ignored -exp_id $exp_id -class_id $class_id\n";
     print "$cmd\n";
-    if ($go) {
+    if ($repair_lost) {
         $fixed = 1;
         system $cmd;