From 33749caa537e2bacc85848294af7e99596f01182 Mon Sep 17 00:00:00 2001
From: marko <marko>
Date: Fri, 7 Apr 2006 14:14:06 +0000
Subject: [PATCH] The GUI was failing to start due to the following error:

Error in startup script: can't read "execSock": no such variable

This change provides a temporary fix.

NOTE: experiment execution still does not work.

Bug found by:
Submitted by:	Zrinka
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 exec.tcl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/exec.tcl b/exec.tcl
index 644c862..38740f5 100755
--- a/exec.tcl
+++ b/exec.tcl
@@ -34,7 +34,6 @@
 #
 
 
-
 #****f* exec.tcl/nexec
 # NAME
 #   nexec -- execute program
@@ -1118,7 +1117,7 @@ proc remoteStart {} {
 proc remoteClose { } {
     global execSock monSock remote_exec mpid epid 
 
-    if { $remote_exec }  {
+    if { $remote_exec && [info exists execSock] }  {
 	set execSock [close_sock $execSock]
 	set monSock [close_sock $monSock]
     	if { [info exists mpid] && ($mpid != "") } {
-- 
2.39.5