From 9605c402380cd41bea790337bbc4d4e805d020f6 Mon Sep 17 00:00:00 2001
From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Fri, 12 Nov 2004 18:06:54 +0000
Subject: [PATCH] 	* tkcon.tcl (::tkcon::EvalSocket): pass sock arg.
 (allaert)

---
 ChangeLog | 4 ++++
 tkcon.tcl | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 910b7d7..aa4865d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-11-12  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl (::tkcon::EvalSocket): pass sock arg. (allaert)
+
 2004-11-11  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl (::tkcon::DeleteTab): allow for exit code to be passed
diff --git a/tkcon.tcl b/tkcon.tcl
index 2732451..ab2881e 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -1089,7 +1089,7 @@ proc ::tkcon::EvalSocket cmd {
     if {$code && [eof $PRIV(app)]} {
 	## Interpreter died or disappeared
 	puts "$code eof [eof $PRIV(app)]"
-	EvalSocketClosed
+	EvalSocketClosed $PRIV(app)
     }
     return -code $code $result
 }
-- 
2.23.0