Index: tclWinDde.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinDde.c,v
retrieving revision 1.8
diff -u -b -r1.8 tclWinDde.c
--- tclWinDde.c	18 Jan 2002 14:07:40 -0000	1.8
+++ tclWinDde.c	29 Jan 2003 00:05:31 -0000
@@ -1263,13 +1263,14 @@
 		    ddeData = DdeClientTransaction((LPBYTE) ddeItemData,
 			    0xFFFFFFFF, hConv, 0,
 			    CF_TEXT, XTYP_EXECUTE, TIMEOUT_ASYNC, &ddeResult);
+			if(ddeData) ddeItemData = NULL; /* AGL - 12/02/2002 */
 		    DdeAbandonTransaction(ddeInstance, hConv, ddeResult);
 		} else {
 		    ddeData = DdeClientTransaction((LPBYTE) ddeItemData,
 			    0xFFFFFFFF, hConv, 0,
 			    CF_TEXT, XTYP_EXECUTE, 30000, NULL);
 		    if (ddeData != 0) {
-			
+			ddeItemData = NULL;	/* AGL - 12/02/2002 */
 			ddeCookie = DdeCreateStringHandle(ddeInstance, 
 				"$TCLEVAL$EXECUTE$RESULT", CP_WINANSI);
 			ddeData = DdeClientTransaction(NULL, 0, hConv,
