Index: /tags/ipp-20170121/tools/checkexp
===================================================================
--- /tags/ipp-20170121/tools/checkexp	(revision 40366)
+++ /tags/ipp-20170121/tools/checkexp	(revision 40367)
@@ -84,4 +84,5 @@
 my @summit_exps;
 my @summit_faults;
+my @summit_lost;
 my @download_faults;
 my @register_faults;
@@ -106,5 +107,7 @@
     my $dateobs = $se_ref->{dateobs};
     my $raw_state = $se_ref->{rawExp_state};
-    if ($summit_fault) {
+    if ($summit_fault == 1000) {
+        push @summit_lost, $se_ref;
+    } elsif ($summit_fault) {
         push @summit_faults, $se_ref;
     } elsif ( !$download_state or $download_state eq 'run' ) {
@@ -132,4 +135,5 @@
 
 my $numSummitExp = scalar @summit_exps;
+my $numSummitLost = scalar @summit_lost;
 my $numSummitFaults = scalar @summit_faults;
 my $numDownloadFaults = scalar @download_faults;
@@ -142,4 +146,14 @@
 exit 0 if $numSummitExp == 0;
 
+if ($numSummitLost) {
+  print "$numSummitLost exposures corrupted at the summit\n";
+  if ($verbose) {
+    print  "  exp_name         registered      fault\n";
+          # c4951g0003d   2009-04-30 12:39:34   110
+    foreach my $s (@summit_lost) {
+        printf "%-12s %20s %5d\n", $s->{exp_name}, $s->{registered}, $s->{summit_lost};
+    }
+  }
+}
 if ($numSummitFaults) {
   print "$numSummitFaults summit faults\n";