X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=base%2Fhook.c;h=32c604f9101a5603fad7cadede960a026e59f68c;hp=13f4d022a6cc860fcbabb1ad22627c38e52df1e1;hb=a138b1187d28e61d1decd36142ce6eda505d583a;hpb=2fbe5a5eee8d5d28af55ea9e161d89543a9d8565

diff --git a/base/hook.c b/base/hook.c
index 13f4d02..32c604f 100644
--- a/base/hook.c
+++ b/base/hook.c
@@ -419,7 +419,7 @@ int Hbytes_Init(Tcl_Interp *ip) {
   for (cmd=toplevel_commands;
        cmd->name;
        cmd++)
-    Tcl_CreateObjCommand(ip, cmd->name, cmd->func, 0,0);
+    Tcl_CreateObjCommand(ip, (char*)cmd->name, cmd->func, 0,0);
 
   return TCL_OK;
 }