diff --git a/servers/espeak b/servers/espeak
old mode 100644
new mode 100755
diff --git a/servers/linux-espeak/tclespeak.cpp b/servers/linux-espeak/tclespeak.cpp
index 52b4a17..6411c8d 100644
--- a/servers/linux-espeak/tclespeak.cpp
+++ b/servers/linux-espeak/tclespeak.cpp
@@ -569,7 +569,7 @@ initLanguage (Tcl_Interp * interp)
     {
       char buffer_i[3];
       snprintf(buffer_i, 3, "%d", i); 
-      Tcl_SetVar2(interp, "langalias", voices[i]->languages, buffer_i, 0);
+      Tcl_SetVar2(interp, "langalias", const_cast<char*>(voices[i]->languages), buffer_i, 0);
     }
 
   langInfoMax = i;
@@ -593,7 +593,7 @@ initLanguage (Tcl_Interp * interp)
 	  continue;
 	}
 
-      char* aLangCode = 1 + voices[i]->languages;
+      char* aLangCode = 1 + const_cast<char*>(voices[i]->languages);
 
       snprintf(buffer_i, 3, "%d", aLang); 
       snprintf(buffer_j, 3, "%d", j++); 
@@ -605,7 +605,7 @@ initLanguage (Tcl_Interp * interp)
 	  Tcl_SetVar2(interp, "langcode", "current", aLangCode, 0);
 	}
 
-      Tcl_SetVar2(interp, "langlabel", buffer_j, voices[i]->name, 0);
+      Tcl_SetVar2(interp, "langlabel", buffer_j, const_cast<char*>(voices[i]->name), 0);
       Tcl_SetVar2(interp, "langcode", buffer_j, aLangCode, 0);
       Tcl_SetVar2(interp, "langsynth", "top", buffer_j, 0);
     }