From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Thu, 27 Dec 2012 22:17:43 +0000 (+0000)
Subject: 	* tkcon.tcl (::tkcon::InitInterp): correct sending tkcon commands
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=1018a3b51c978209cdd79a3ea630fb92f226b7ce;p=tkcon

	* tkcon.tcl (::tkcon::InitInterp): correct sending tkcon commands
	to user created interps [Bug #42] (kuhn)
---

diff --git a/ChangeLog b/ChangeLog
index bf29fed..be79a25 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,9 @@
 	signals to differentiate "I'm not responsible" results from "I
 	don't have any results". (neumann)
 
+	* tkcon.tcl (::tkcon::InitInterp): correct sending tkcon commands
+	to user created interps [Bug #42] (kuhn)
+
 2012-03-06  Jeff Hobbs  <jeffh@>
 
 	* tkcon.tcl (idebug): better line handling to not use list
diff --git a/tkcon.tcl b/tkcon.tcl
index 137b685..7dfcc82 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -561,7 +561,7 @@ proc ::tkcon::InitInterp {name type} {
 	switch -exact $type {
 	    slave {
 		foreach cmd $PRIV(slavealias) {
-		    Main interp alias $name ::$cmd $PRIV(name) ::$cmd
+		    Main [list interp alias $name ::$cmd $PRIV(name) ::$cmd]
 		}
 	    }
 	    interp {