$NetBSD: patch-ba,v 1.2 2010/02/03 21:14:22 is Exp $

--- Tcl.h.orig	1996-03-16 21:14:34.000000000 +0000
+++ Tcl.h
@@ -72,7 +72,7 @@ class Tcl {
 		if (Tcl_EvalFile(tcl_, (char*)file) != TCL_OK)
 			error(file);
 	}
-	inline char* var(const char* varname, int flags = TCL_GLOBAL_ONLY) {
+	inline const char* var(const char* varname, int flags = TCL_GLOBAL_ONLY) {
 		return (Tcl_GetVar(tcl_, (char*)varname, flags));
 	}
 	/*
@@ -123,7 +123,7 @@ class TclObject {
 	virtual void reset();
 	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:
 	TclObject(const char* name = 0);