From 7eb1f66fd8be5d926a8c70de36666a6522a82ddb Mon Sep 17 00:00:00 2001
From: "dgp@users.sourceforge.net" <dgp>
Date: Thu, 17 Jun 2004 21:33:43 +0000
Subject: Added missing incr ref count.  D'oh!

---
 win/tclWinInit.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/win/tclWinInit.c b/win/tclWinInit.c
index 12f443b..44c2e37 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.53 2004/06/17 21:26:28 dgp Exp $
+ * RCS: @(#) $Id: tclWinInit.c,v 1.54 2004/06/17 21:33:43 dgp Exp $
  */
 
 #include "tclWinInt.h"
@@ -221,6 +221,7 @@ Tcl_Panic("Called GetDLD before SetDLD!");
 
     *savedDirectoryPtr =
 	    Tcl_NewStringObj(defaultLibraryDir, defaultLibraryDirLength);
+    Tcl_IncrRefCount(*savedDirectoryPtr);
     Tcl_CreateThreadExitHandler(FreeThreadDefaultLibraryDir,
 		(ClientData) savedDirectoryPtr);
     return *savedDirectoryPtr;
-- 
cgit v0.12