From 678fe1edf87b52d01df6a6e0653f5aef06798cea Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 31 Oct 2000 01:11:51 +0000
Subject: simplified tk_library path normalization call

---
 library/safetk.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/safetk.tcl b/library/safetk.tcl
index 3b01a78..1993ade 100644
--- a/library/safetk.tcl
+++ b/library/safetk.tcl
@@ -2,7 +2,7 @@
 #
 # Support procs to use Tk in safe interpreters.
 #
-# RCS: @(#) $Id: safetk.tcl,v 1.7 2000/08/06 00:11:18 hobbs Exp $
+# RCS: @(#) $Id: safetk.tcl,v 1.8 2000/10/31 01:11:51 hobbs Exp $
 #
 # Copyright (c) 1997 Sun Microsystems, Inc.
 #
@@ -40,7 +40,7 @@ namespace eval ::safe {
 	# We have to make sure that the tk_library variable uses a file
 	# pathname that works better in Tk (of the style returned by
 	# [file join], ie C:/path/to/tk/lib, not C:\path\to\tk\lib
-	set tk_library [eval [list file join] [file split $tk_library]]
+	set tk_library [file join $tk_library]
 
 	# Clear Tk's access for that interp (path).
 	allowTk $slave $argv
-- 
cgit v0.12