Tcl Source Code

Artifact e045fb5441d0eaec6a95f85f70fee3d9f83ad350:

Attachment "tclCompile.patch" to ticket [1964803fff] added by ajpasadyn 2008-05-16 02:34:40.

---

--- old/tcl8.5.2/generic/tclCompile.c	2008-01-23 15:21:30.000000000 -0600
+++ new/tcl8.5.2/generic/tclCompile.c	2008-05-15 13:17:08.999781400 -0500
@@ -3342,7 +3342,7 @@
 
     TclNewObj(bufferObj);
     PrintSourceToObj(bufferObj, stringPtr, maxChars);
-    fprintf(outFile, TclGetString(bufferObj));
+    fprintf(outFile, "%s", TclGetString(bufferObj));
     Tcl_DecrRefCount(bufferObj);
 }
 #endif /* TCL_COMPILE_DEBUG */