--- tcl8.5b2/generic/tclCompile.h.old	2007-10-25 22:02:10.000000000 +0200
+++ tcl8.5b2/generic/tclCompile.h	2007-11-15 08:49:44.000000000 +0100
@@ -916,7 +916,7 @@ MODULE_SCOPE void	TclRegisterAuxDataType
 MODULE_SCOPE int	TclRegisterLiteral(CompileEnv *envPtr,
 			    char *bytes, int length, int flags);
 MODULE_SCOPE void	TclReleaseLiteral(Tcl_Interp *interp, Tcl_Obj *objPtr);
-MODULE_SCOPE void	TclSetCmdNameObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
+void	TclSetCmdNameObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
 			    Command *cmdPtr);
 MODULE_SCOPE int	TclSingleOpCmd(ClientData clientData,
 			    Tcl_Interp *interp, int objc,
