Index: generic/xotcl.decls
===================================================================
diff -u -re476fd3814e139958bab9cacbd8e2f8def632d00 -r66c24900b6a07a0cac4a28251c492bd3a05ec8e7
--- generic/xotcl.decls	(.../xotcl.decls)	(revision e476fd3814e139958bab9cacbd8e2f8def632d00)
+++ generic/xotcl.decls	(.../xotcl.decls)	(revision 66c24900b6a07a0cac4a28251c492bd3a05ec8e7)
@@ -38,7 +38,7 @@
     struct XOTcl_Object *XOTclGetObject(Tcl_Interp *interp, char *name)
 }
 declare 5 generic {
-    struct XOTcl_Class *XOTclGetClass(Tcl_Interp *interp, char *name)
+    struct XOTcl_Class *XOTclGetClass(Tcl_Interp *interp, CONST char *name)
 }
 declare 6 generic {
     int XOTclCreateObject(Tcl_Interp *interp, Tcl_Obj *name, struct XOTcl_Class *cl)
@@ -149,7 +149,7 @@
     void XOTclRequireObjNamespace(Tcl_Interp *interp, XOTcl_Object *obj)
 }
 declare 37 generic {
-    int XOTclErrBadVal(Tcl_Interp *interp, char *context, char *expected, char *value)
+    int XOTclErrBadVal(Tcl_Interp *interp, char *context, char *expected, CONST char *value)
 }
 declare 38 generic {
         int XOTclNextObjCmd(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])