Index: trunk/tools/bills/concatsmf
===================================================================
--- trunk/tools/bills/concatsmf	(revision 39002)
+++ trunk/tools/bills/concatsmf	(revision 39114)
@@ -22,7 +22,9 @@
 my ($ota, $save_temps, $verbose);
 my $test_smf;
+my $supplied_exp_id;
 
 GetOptions(
     "ota|o=s"           =>  \$ota,
+    "exp_id=s"          =>  \$supplied_exp_id,
     "vebose|v"          =>  \$verbose,
     "save-temps"        =>  \$save_temps,
@@ -73,4 +75,6 @@
 
 ($exp_name, $exp_id, undef, $cam_id) = split '\.', $infilename;
+
+$exp_id = $supplied_exp_id if ($supplied_exp_id);
 
 print "$exp_name $exp_id $cam_id\n" if $verbose;