From b34f7d9eb88b722222182884611807d855f51968 Mon Sep 17 00:00:00 2001
From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Sat, 22 Jun 2002 08:29:00 +0000
Subject: [PATCH] call Init with eval to break out argv into args

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

diff --git a/ChangeLog b/ChangeLog
index 348a33e..8ca92c9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-06-22  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl: call Init with eval to break out argv into args.
+
 2002-06-04  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl (Init): convert env(home) from 'C:' to 'C:/' if necessary.
diff --git a/tkcon.tcl b/tkcon.tcl
index c4f0706..09b481f 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -5306,7 +5306,7 @@ proc ::tkcon::Resource {} {
 if {(![info exists ::tkcon::PRIV(root)] \
 	|| ![winfo exists $::tkcon::PRIV(root)]) \
 	&& (![info exists argv0] || [info script] == $argv0)} {
-    ::tkcon::Init $argv
+    eval ::tkcon::Init $argv
 }
 
 package provide tkcon $::tkcon::VERSION
-- 
2.23.0