--- dispatch.C.orig	1994-05-20 03:21:54 UTC
+++ dispatch.C
@@ -24,7 +24,7 @@ int Dispatch(Dispatch_Entry* table, ClientData c, Tcl_
 	    if ((entry->max_arg_count >= 0) && (argc > entry->max_arg_count)) {
 		TCL_Error(tcl, "too many arguments");
 	    }
-	    return entry->handler(c, tcl, argc, argv);
+	    return entry->handler(c, tcl, argc, (CONST84 char **)argv);
 	}
     }
 
