--- scintilla/src/LexCaml.cxx.orig	2005-05-27 05:30:23.000000000 +0200
+++ scintilla/src/LexCaml.cxx	2009-02-27 14:05:28.000000000 +0100
@@ -275,7 +275,7 @@
 			// [try to] interpret as [additional] operator char
 			char* o = 0;
 			if (iscaml(ch) || isspace(ch)			/* ident or whitespace */
-				|| ((o = strchr(")]};,\'\"`#", ch)) != 0)/* "termination" chars */
+				|| ((o = const_cast<char *>(strchr(")]};,\'\"`#", ch))) != 0)/* "termination" chars */
 				|| !strchr("!$%&*+-./:<=>?@^|~", ch)/* "operator" chars */) {
 				// check for INCLUSIVE termination
 				if (o && strchr(")]};,", ch)) {