Index: trunk/ippScripts/scripts/automate_stacks.pl
===================================================================
--- trunk/ippScripts/scripts/automate_stacks.pl	(revision 27918)
+++ trunk/ippScripts/scripts/automate_stacks.pl	(revision 27938)
@@ -455,8 +455,8 @@
     }
 
-    if ($#{ $stderr_buf } > -1) {
-        $metadata_out{nsState} = 'ERROR';
-        return(1);
-    }
+#    if ($#{ $stderr_buf } > -1) {
+#        $metadata_out{nsState} = 'ERROR';
+#        return(1);
+#    }
 
     my $N = 0;
@@ -464,6 +464,9 @@
     foreach my $row (@burntool_entries) {
         my ($trash,$start,$end);
-        ($trash,$trash,$start,$end) = (split /\s+/,$row);
-
+        (undef,$trash,$start,$end) = (split /\s+/,$row);
+	if ($trash ne 'burntool') {
+	    $metadata_out{nsState} = 'ERROR';
+	    return(1);
+	}
         for (my $class_counter = 0; $class_counter < 60; $class_counter++) {
             $metadata_out{"bt${N}Begin"} = $start;
Index: trunk/ippScripts/scripts/make_burntool_pcontrol.pl
===================================================================
--- trunk/ippScripts/scripts/make_burntool_pcontrol.pl	(revision 27918)
+++ trunk/ippScripts/scripts/make_burntool_pcontrol.pl	(revision 27938)
@@ -322,6 +322,10 @@
     my ($exp_type,$obs_mode,$object,$comment) = @_;
     my $return_value = 0;
+    unless($object) {
+	$object = '';
+    }
     if ($exp_type eq 'OBJECT') {
 	foreach my $target (@target_list) {
+#	    print STDERR "$target $obsmode_list{$target} $exp_type $obs_mode $object $comment\n";
 	    if (($obs_mode =~ /$obsmode_list{$target}/)&&
 		($object   =~ /$object_list{$target}/)&&