timeout for "death at birth" was too short (1 instead of 10 seconds)

shellbox.tcl

@@ -32,8 +32,8 @@ set timeout -1
 
 regsub -all {\$} {shellbox by Dirk Zimoch
 $Source: /cvs/G/EPICS/App/scripts/shellbox.tcl,v $
-$Revision: 1.8 $
-$Date: 2009/05/28 14:22:32 $} {} version
+$Revision: 1.9 $
+$Date: 2011/03/02 09:21:46 $} {} version
 
 proc usage {} {
     puts "usage: shellbox \[options\] port command args"
@@ -137,7 +137,7 @@ proc startProgram {} {
         forwardOutput "**** $msg (trying later) ****\n"
         while {[catch {cd $directory}]} { after 10000 }
     }
-    after 1000 set diedyoung 0
+    after 10000 set diedyoung 0
     if [catch {
         eval spawn $command
     } msg] {