From daeda8f9c3accd378ab1fb67803abe9b35ab6ebc Mon Sep 17 00:00:00 2001
From: hershey <hershey>
Date: Wed, 21 Jul 1999 23:28:05 +0000
Subject: added a line to initialize the tclDefaultLibrary tcl global var to
 "", as was done in Tcl8.0.5.

---
 win/tclWinInit.c | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/win/tclWinInit.c b/win/tclWinInit.c
index 2a02872..27b86d5 100644
--- a/win/tclWinInit.c
+++ b/win/tclWinInit.c
@@ -7,7 +7,7 @@
  * Copyright (c) 1998-1999 by Scriptics Corporation.
  * All rights reserved.
  *
- * RCS: @(#) $Id: tclWinInit.c,v 1.18 1999/07/21 02:01:37 hershey Exp $
+ * RCS: @(#) $Id: tclWinInit.c,v 1.19 1999/07/21 23:28:05 hershey Exp $
  */
 
 #include "tclWinInt.h"
@@ -532,7 +532,8 @@ TclpSetInitialEncodings()
  *	None.
  *
  * Side effects:
- *	Sets "tcl_platform" and "env(HOME)" Tcl variables.
+ *	Sets "tclDefaultLibrary", "tcl_platform", and "env(HOME)" Tcl
+ *	variables.
  *
  *----------------------------------------------------------------------
  */
@@ -563,6 +564,12 @@ TclpSetVariables(interp)
     }
 
     /*
+     * Initialize the tclDefaultLibrary variable from the registry.
+     */
+
+    Tcl_SetVar(interp, "tclDefaultLibrary", "", TCL_GLOBAL_ONLY);
+
+    /*
      * Define the tcl_platform array.
      */
 
-- 
cgit v0.12