From 1166cd31795ae95c0ee8ed21c248a6ba1c78212d Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 17 Jun 2004 20:18:25 +0000
Subject: temporarily removed unset of ::tclDefaultLibrary for sake of testing.

---
 generic/tclInterp.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclInterp.c b/generic/tclInterp.c
index b5ef40f..5226c05 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclInterp.c,v 1.39 2004/06/11 22:39:29 dgp Exp $
+ * RCS: @(#) $Id: tclInterp.c,v 1.40 2004/06/17 20:18:25 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -72,7 +72,7 @@ static char initScript[] = "if {[info proc tclInit]==\"\"} {\n\
 	}\n\
 	catch {\n\
 	    lappend dirs $tclDefaultLibrary\n\
-	    unset tclDefaultLibrary\n\
+#unset tclDefaultLibrary\n\
 	}\n\
 	catch {\n\
             set dirs [concat $dirs $tcl_libPath]\n\
-- 
cgit v0.12