Index: trunk/tools/checkexp
===================================================================
--- trunk/tools/checkexp	(revision 27928)
+++ trunk/tools/checkexp	(revision 29253)
@@ -20,5 +20,5 @@
 my $endDate;
 my $verbose;
-my $dbname = "gpc1";
+my $dbname;
 
 GetOptions(
@@ -33,4 +33,8 @@
 #           -exitval => 3)
 #    unless defined $startDate;
+
+if (!$dbname) {
+    my $dbname = "gpc1";
+}
 
 my $dbh  = getDBHandle($ipprc, $dbname);