* tkcon.tcl (::tkcon::InitInterp): correct sending tkcon commands

	to user created interps [Bug #42] (kuhn)

diff --git a/ChangeLog b/ChangeLog
index bf29fedb5dc0d2c238deddca3af212f3e1bc8e84..be79a25ffd1ef773d93a0ff2df88779188eb41c0 100644 (file)
--- 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 137b685c347f92b1ee1ac7f47d8cba1119c7d42d..7dfcc8299d7bf94ed3f6c983ca88ca45600fc4ad 100755 (executable)
--- 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 {