--- tkStripchart.c	Mon Jun 29 15:17:00 1998
+++ tkStripchart.c	Thu Sep 23 18:50:39 2004
@@ -364,5 +364,5 @@
 int
 Tk_StripchartCmd(ClientData clientData, Tcl_Interp *interp, int argc,
-		 char **argv)
+		 CONST char **argv)
  {
 	Tk_Window tkwin = (Tk_Window) clientData;
--- main.cpp	Tue Feb 25 12:55:08 2003
+++ main.cpp	Thu Sep 23 18:51:59 2004
@@ -407,5 +407,5 @@
 }
 
-extern "C" int Tk_StripchartCmd(ClientData, Tcl_Interp*, int ac, char** av);
+extern "C" int Tk_StripchartCmd(ClientData, Tcl_Interp*, int ac, const char** av);
 #ifdef WIN32
 extern "C" int WinPutsCmd(ClientData, Tcl_Interp*, int ac, char** av);
--- vic_tcl.h	Thu Sep  9 08:05:49 1999
+++ vic_tcl.h	Thu Sep 23 19:00:33 2004
@@ -74,6 +77,6 @@
 			error(file);
 	}
-	inline char* var(const char* varname, int flags = TCL_GLOBAL_ONLY) {
-		return (Tcl_GetVar(tcl_, (char*)varname, flags));
+	inline CONST char* var(const char* varname, int flags = TCL_GLOBAL_ONLY) {
+		return (Tcl_GetVar(tcl_, varname, flags));
 	}
 	/*
@@ -125,5 +128,5 @@
 	void class_name(const char*);
 	/* make this public for Sun's compiler */
-	static int callback(ClientData, Tcl_Interp*, int ac, char** av);
+	static int callback(ClientData, Tcl_Interp*, int ac, CONST char** av);
 	static void reset_all();
     protected:
--- rate-variable.cpp	Thu Sep  9 08:21:55 1999
+++ rate-variable.cpp	Thu Sep 23 18:55:10 2004
@@ -62,11 +62,11 @@
 	RateVariable(const char* name) : TclObject(name) { }
 protected:
-	static char* update_rate_var(ClientData, Tcl_Interp*, char* name1,
-				     char* name2, int flags);
+	static char* update_rate_var(ClientData, Tcl_Interp*, const char* name1,
+				     const char* name2, int flags);
 	int command(int argc, const char*const* argv);
 } rate_variable_cmd("rate_variable");
 
 char* RateVariable::update_rate_var(ClientData clientData, Tcl_Interp* tcl,
-				    char* name1, char* name2, int flags)
+				    const char* name1, const char* name2, int flags)
 {
 	rv_data* rv = (rv_data*)clientData;
@@ -81,5 +81,5 @@
 		char res[128];
 		flags &= TCL_GLOBAL_ONLY;
-		char* cv = Tcl_GetVar2(tcl, name1, name2, flags);
+		const char* cv = Tcl_GetVar2(tcl, name1, name2, flags);
 		if (cv == NULL)
 			return (tcl->result);