Index: trunk/tools/checkexp
===================================================================
--- trunk/tools/checkexp	(revision 38089)
+++ trunk/tools/checkexp	(revision 38373)
@@ -22,8 +22,12 @@
 my $dbname;
 
+# this program must be in the path. There is one in the tools directory
+my $croot = 'croot';
+
 GetOptions(
            'start|s=s'    => \$startDate,
            'end|e=s'      => \$endDate,
            'dbname|d=s'   => \$dbname,
+           'camera=s'     => \$dbname,
            'verbose|v'    => \$verbose,
 ) or pod2usage( 0 );
@@ -35,5 +39,5 @@
 
 if (!$dbname) {
-    my $dbname = "gpc1";
+    $dbname = "gpc1";
 }
 
@@ -68,5 +72,5 @@
 
 print "Summit Copy and Registration Status\n\n";
-my $scode = system "~bills/bin/croot";
+my $scode = system "$croot --camera $dbname";
 if ($scode) {
     print STDERR "croot failed with $scode\n";