Index: tclWinPipe.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinPipe.c,v
retrieving revision 1.24
diff -b -u -r1.24 tclWinPipe.c
--- tclWinPipe.c	24 Mar 2002 11:41:51 -0000	1.24
+++ tclWinPipe.c	14 Jun 2002 11:43:22 -0000
@@ -1592,6 +1592,11 @@
 		Tcl_DStringAppend(&ds, "\\\"", 2);
 		start = special + 1;
 	    }
+	    if (*special == '{') {
+		Tcl_DStringAppend(&ds, start, special - start);
+		Tcl_DStringAppend(&ds, "\\{", 2);
+		start = special + 1;
+	    }
 	    if (*special == '\0') {
 		break;
 	    }
