--- ray/src/util/do_action.tcl	1994/12/06 13:00:31	2.6
+++ ray/src/util/do_action.tcl	1995/10/17 21:28:06	2.9
@@ -73,7 +73,8 @@ proc run_batch {} {		# start rendering in background
 		return
 	}
 	# Make space for PID to be written later
-	puts $fo "                                                            "
+	puts $fo \
+"                                                                             "
 	if {$rpview == " ALL"} {
 		set radcom "rad"
 	} else {
@@ -173,7 +174,7 @@ proc do_action w {		# Action screen
 	global rifname rvview rpview radvar bfname batch_pid \
 			curmess scname mywin alldone batch_fmt hostname
 	if {"$w" == "done"} {
-		unset rpview bfname batch_pid mywin
+		unset rvview rpview bfname batch_pid mywin
 		return
 	}
 	set bfname [file rootname [file tail $rifname]].err
@@ -222,10 +223,14 @@ proc do_action w {		# Action screen
 			-command {view_txt $bfname}
 	place $w.rbce -relwidth .1786 -relheight .0610 -relx .6429 -rely .5488
 	helplink $w.rbce trad action checkerr
-	if [file exists $bfname] {
+	if [file isfile $bfname] {
 		set fi [open $bfname r]
-		scan [gets $fi] $batch_fmt batch_pid batch_host
-		gets $fi radcom
+		if {[scan [gets $fi] $batch_fmt batch_pid batch_host] != 2} {
+			set batch_host unknown
+			set radcom {}
+		} else {
+			gets $fi radcom
+		}
 		close $fi
 		if [string match "rad -v *" $radcom] {
 			set rpview [lindex $radcom 2]
@@ -235,10 +240,10 @@ proc do_action w {		# Action screen
 		if {"$hostname" != "$batch_host"} {
 			if $alldone {
 				set curmess "Batch rendering finished\
-						on host $batch_host."
+						on $batch_host."
 			} else {
-				set curmess "Unknown batch rendering status\
-						on host $batch_host."
+				set curmess "Batch rendering on\
+						$batch_host -- status UNKNOWN."
 				$w.rbst configure -state disabled
 				$w.rbvmb configure -state disabled
 			}