--- tclx8.4/generic/tclXdup.c.varinit 2006-02-03 15:54:38.000000000 -0500
+++ tclx8.4/generic/tclXdup.c 2006-02-03 15:54:53.000000000 -0500
@@ -202,7 +202,7 @@
{
Tcl_Channel newChannel;
int bindFnum, fnum;
- char *srcChannelId, *targetChannelId;
+ char *srcChannelId = NULL, *targetChannelId;
if ((objc < 2) || (objc > 3)) {
return TclX_WrongArgs (interp, objv [0],