$NetBSD$

--- src/rivetCore.c.orig	2004-02-24 02:24:34.000000000 -0800
+++ src/rivetCore.c
@@ -635,7 +635,7 @@ TCL_CMD_HEADER( Rivet_Upload )
 	if (TclWeb_UploadChannel(varname, &chan, globals->req) != TCL_OK) {
 	    return TCL_ERROR;
 	}
-	(CONST84 char *)channelname = Tcl_GetChannelName(chan);
+	channelname = (CONST84 char *)Tcl_GetChannelName(chan);
 	Tcl_SetStringObj(result, channelname, -1);
 	break;
     }
