From 367f0a1404f80ad7fd1c0cf7ead3bedb3fd2bab7 Mon Sep 17 00:00:00 2001
From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Tue, 4 Jun 2002 17:35:40 +0000
Subject: [PATCH] 	* tkcon.tcl (Init): convert env(home) from 'C:' to
 'C:/' if necessary.

---
 ChangeLog | 4 ++++
 tkcon.tcl | 9 +++++++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 690f6ad..348a33e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-06-04  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl (Init): convert env(home) from 'C:' to 'C:/' if necessary.
+
 2002-06-03  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl: fixed Retrieve to use the proxy info (Thoyts).
diff --git a/tkcon.tcl b/tkcon.tcl
index dd07393..c4f0706 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -251,11 +251,16 @@ proc ::tkcon::Init {args} {
 	}
     }
     if {[info exists env($envHome)]} {
+	set home $env($envHome)
+	if {[file pathtype $home] == "volumerelative"} {
+	    # Convert 'C:' to 'C:/' if necessary, innocuous otherwise
+	    append home /
+	}
 	if {![info exists PRIV(rcfile)]} {
-	    set PRIV(rcfile)	[file join $env($envHome) $rcfile]
+	    set PRIV(rcfile)	[file join $home $rcfile]
 	}
 	if {![info exists PRIV(histfile)]} {
-	    set PRIV(histfile)	[file join $env($envHome) $histfile]
+	    set PRIV(histfile)	[file join $home $histfile]
 	}
     }
 
-- 
2.23.0