Index: library/dde/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/dde/pkgIndex.tcl,v
retrieving revision 1.16
diff -u -r1.16 pkgIndex.tcl
--- library/dde/pkgIndex.tcl	6 Oct 2004 16:37:18 -0000	1.16
+++ library/dde/pkgIndex.tcl	5 Apr 2006 15:55:39 -0000
@@ -1,7 +1,7 @@
 if {![package vsatisfies [package provide Tcl] 8]} {return}
 if {[string compare $::tcl_platform(platform) windows]} {return}
 if {[info exists ::tcl_platform(debug)]} {
-    package ifneeded dde 1.3.1 [list load [file join $dir tcldde13g.dll] dde]
+    package ifneeded dde 1.3.2 [list load [file join $dir tcldde13g.dll] dde]
 } else {
-    package ifneeded dde 1.3.1 [list load [file join $dir tcldde13.dll] dde]
+    package ifneeded dde 1.3.2 [list load [file join $dir tcldde13.dll] dde]
 }
Index: library/reg/pkgIndex.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/reg/pkgIndex.tcl,v
retrieving revision 1.18
diff -u -r1.18 pkgIndex.tcl
--- library/reg/pkgIndex.tcl	6 Oct 2004 17:09:27 -0000	1.18
+++ library/reg/pkgIndex.tcl	5 Apr 2006 15:55:40 -0000
@@ -1,9 +1,9 @@
 if {![package vsatisfies [package provide Tcl] 8]} {return}
 if {[string compare $::tcl_platform(platform) windows]} {return}
 if {[info exists ::tcl_platform(debug)]} {
-    package ifneeded registry 1.1.5 \
+    package ifneeded registry 1.1.6 \
             [list load [file join $dir tclreg11g.dll] registry]
 } else {
-    package ifneeded registry 1.1.5 \
+    package ifneeded registry 1.1.6 \
             [list load [file join $dir tclreg11.dll] registry]
 }
Index: win/configure
===================================================================
RCS file: /cvsroot/tcl/tcl/win/configure,v
retrieving revision 1.81
diff -u -r1.81 configure
--- win/configure	10 Dec 2005 01:36:47 -0000	1.81
+++ win/configure	5 Apr 2006 15:55:44 -0000
@@ -1273,13 +1273,13 @@
 TCL_DDE_VERSION=1.3
 TCL_DDE_MAJOR_VERSION=1
 TCL_DDE_MINOR_VERSION=3
-TCL_DDE_PATCH_LEVEL=""
+TCL_DDE_PATCH_LEVEL="2"
 DDEVER=$TCL_DDE_MAJOR_VERSION$TCL_DDE_MINOR_VERSION
 
 TCL_REG_VERSION=1.1
 TCL_REG_MAJOR_VERSION=1
 TCL_REG_MINOR_VERSION=1
-TCL_REG_PATCH_LEVEL=""
+TCL_REG_PATCH_LEVEL="6"
 REGVER=$TCL_REG_MAJOR_VERSION$TCL_REG_MINOR_VERSION
 
 #------------------------------------------------------------------------
Index: win/configure.in
===================================================================
RCS file: /cvsroot/tcl/tcl/win/configure.in,v
retrieving revision 1.86
diff -u -r1.86 configure.in
--- win/configure.in	13 Oct 2005 18:30:10 -0000	1.86
+++ win/configure.in	5 Apr 2006 15:55:44 -0000
@@ -22,13 +22,13 @@
 TCL_DDE_VERSION=1.3
 TCL_DDE_MAJOR_VERSION=1
 TCL_DDE_MINOR_VERSION=3
-TCL_DDE_PATCH_LEVEL=""
+TCL_DDE_PATCH_LEVEL="2"
 DDEVER=$TCL_DDE_MAJOR_VERSION$TCL_DDE_MINOR_VERSION
 
 TCL_REG_VERSION=1.1
 TCL_REG_MAJOR_VERSION=1
 TCL_REG_MINOR_VERSION=1
-TCL_REG_PATCH_LEVEL=""
+TCL_REG_PATCH_LEVEL="6"
 REGVER=$TCL_REG_MAJOR_VERSION$TCL_REG_MINOR_VERSION
 
 #------------------------------------------------------------------------
Index: win/tclWinDde.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinDde.c,v
retrieving revision 1.29
diff -u -r1.29 tclWinDde.c
--- win/tclWinDde.c	13 Dec 2005 22:43:18 -0000	1.29
+++ win/tclWinDde.c	5 Apr 2006 15:55:44 -0000
@@ -81,7 +81,7 @@
 				 * by DdeInitialize. */
 static int ddeIsServer = 0;
 
-#define TCL_DDE_VERSION		"1.3.1"
+#define TCL_DDE_VERSION		"1.3.2"
 #define TCL_DDE_PACKAGE_NAME	"dde"
 #define TCL_DDE_SERVICE_NAME	"TclEval"
 #define TCL_DDE_EXECUTE_RESULT	"$TCLEVAL$EXECUTE$RESULT"
@@ -377,6 +377,8 @@
 		}
 	    }
 	}
+	Tcl_DStringSetLength(&dString,
+		offset + strlen(Tcl_DStringValue(&dString)+offset));
     }
 
     /*
Index: win/tclWinInit.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinInit.c,v
retrieving revision 1.69
diff -u -r1.69 tclWinInit.c
--- win/tclWinInit.c	8 Feb 2006 21:41:28 -0000	1.69
+++ win/tclWinInit.c	5 Apr 2006 15:55:44 -0000
@@ -470,7 +470,9 @@
     Tcl_DString *bufPtr)
 {
     Tcl_DStringInit(bufPtr);
+    Tcl_DStringSetLength(&bufPtr, 2+TCL_INTEGER_SPACE);
     wsprintfA(Tcl_DStringValue(bufPtr), "cp%d", GetACP());
+    Tcl_DStringSetLength(&bufPtr, strlen(Tcl_DStringValue(bufPtr)));
     return Tcl_DStringValue(bufPtr);
 }
 
Index: win/tclWinReg.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinReg.c,v
retrieving revision 1.35
diff -u -r1.35 tclWinReg.c
--- win/tclWinReg.c	13 Dec 2005 22:43:18 -0000	1.35
+++ win/tclWinReg.c	5 Apr 2006 15:55:44 -0000
@@ -238,7 +238,7 @@
     cmd = Tcl_CreateObjCommand(interp, "registry", RegistryObjCmd,
 	(ClientData)interp, DeleteCmd);
     Tcl_SetAssocData(interp, REGISTRY_ASSOC_KEY, NULL, (ClientData)cmd);
-    return Tcl_PkgProvide(interp, "registry", "1.1.5");
+    return Tcl_PkgProvide(interp, "registry", "1.1.6");
 }
 
 /*
Index: win/tclWinSock.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinSock.c,v
retrieving revision 1.53
diff -u -r1.53 tclWinSock.c
--- win/tclWinSock.c	27 Mar 2006 18:08:51 -0000	1.53
+++ win/tclWinSock.c	5 Apr 2006 15:55:45 -0000
@@ -2564,6 +2564,8 @@
 	if (winSock.gethostname(Tcl_DStringValue(&ds),
 		Tcl_DStringLength(&ds)) == 0) {
 	    Tcl_DStringSetLength(&ds, 0);
+	} else {
+	    Tcl_DStringSetLength(&ds, strlen(Tcl_DStringValue(&ds)));
 	}
     }
 
