--- 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 */
