Index: generic/tkConsole.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkConsole.c,v
retrieving revision 1.17
diff -u -r1.17 tkConsole.c
--- generic/tkConsole.c	12 Apr 2002 06:51:50 -0000	1.17
+++ generic/tkConsole.c	16 Jul 2002 01:04:02 -0000
@@ -13,6 +13,7 @@
  * RCS: @(#) $Id: tkConsole.c,v 1.17 2002/04/12 06:51:50 hobbs Exp $
  */
 
+#define USE_COMPAT_CONST
 #include "tk.h"
 #include <string.h>
 
@@ -58,7 +59,7 @@
 static int	ConsoleInput _ANSI_ARGS_((ClientData instanceData,
 		    char *buf, int toRead, int *errorCode));
 static int	ConsoleOutput _ANSI_ARGS_((ClientData instanceData,
-		    CONST char *buf, int toWrite, int *errorCode));
+		    char *buf, int toWrite, int *errorCode));
 static int	ConsoleClose _ANSI_ARGS_((ClientData instanceData,
 		    Tcl_Interp *interp));
 static void	ConsoleWatch _ANSI_ARGS_((ClientData instanceData,
@@ -405,7 +406,7 @@
 static int
 ConsoleOutput(instanceData, buf, toWrite, errorCode)
     ClientData instanceData;		/* Indicates which device to use. */
-    CONST char *buf;			/* The data buffer. */
+    char *buf;			/* The data buffer. */
     int toWrite;			/* How many bytes to write? */
     int *errorCode;			/* Where to store error code. */
 {
Index: generic/tkInt.decls
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkInt.decls,v
retrieving revision 1.28
diff -u -r1.28 tkInt.decls
--- generic/tkInt.decls	18 Jun 2002 23:51:46 -0000	1.28
+++ generic/tkInt.decls	16 Jul 2002 01:04:02 -0000
@@ -178,7 +178,7 @@
 }
 
 declare 33 generic {
-    CONST char * TkGetDefaultScreenName (Tcl_Interp *interp, \
+    CONST84_RETURN char * TkGetDefaultScreenName (Tcl_Interp *interp, \
 	    CONST char *screenName)
 }
 
Index: generic/tkScrollbar.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkScrollbar.c,v
retrieving revision 1.5
diff -u -r1.5 tkScrollbar.c
--- generic/tkScrollbar.c	22 Nov 2000 01:49:38 -0000	1.5
+++ generic/tkScrollbar.c	16 Jul 2002 01:04:02 -0000
@@ -15,6 +15,7 @@
  * RCS: @(#) $Id: tkScrollbar.c,v 1.5 2000/11/22 01:49:38 ericm Exp $
  */
 
+#define USE_COMPAT_CONST
 #include "tkPort.h"
 #include "tkScrollbar.h"
 #include "default.h"
Index: generic/tkTest.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkTest.c,v
retrieving revision 1.18
diff -u -r1.18 tkTest.c
--- generic/tkTest.c	15 Jul 2002 16:56:32 -0000	1.18
+++ generic/tkTest.c	16 Jul 2002 01:04:02 -0000
@@ -16,6 +16,7 @@
  * RCS: @(#) $Id: tkTest.c,v 1.18 2002/07/15 16:56:32 dgp Exp $
  */
 
+#define USE_COMPAT_CONST
 #include "tkInt.h"
 #include "tkPort.h"
 #include "tkText.h"
@@ -628,7 +629,7 @@
     int objc;			/* Number of arguments. */
     Tcl_Obj *CONST objv[];	/* Argument objects. */
 {
-    static CONST char *options[] = {"alltypes", "chain1", "chain2",
+    static char *options[] = {"alltypes", "chain1", "chain2",
 	    "configerror", "delete", "info", "internal", "new",
 	    "notenoughparams", "twowindows", (char *) NULL};
     enum {
@@ -1351,7 +1352,7 @@
     Tcl_Obj *CONST objv[];	/* Argument objects. */
 {
     int result = TCL_OK;
-    static CONST char *options[] = {
+    static char *options[] = {
 	"cget", "configure", "csave", (char *) NULL
     };
     enum {
@@ -1537,7 +1538,7 @@
     int objc;			/* Number of arguments. */
     Tcl_Obj *CONST objv[];	/* Argument objects. */
 {
-    static CONST char *options[] = {"counts", "subfonts", (char *) NULL};
+    static char *options[] = {"counts", "subfonts", (char *) NULL};
     enum option {COUNTS, SUBFONTS};
     int index;
     Tk_Window tkwin;
Index: generic/tkText.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkText.c,v
retrieving revision 1.28
diff -u -r1.28 tkText.c
--- generic/tkText.c	22 Jun 2002 08:21:51 -0000	1.28
+++ generic/tkText.c	16 Jul 2002 01:04:02 -0000
@@ -17,6 +17,7 @@
  * RCS: @(#) $Id: tkText.c,v 1.28 2002/06/22 08:21:51 hobbs Exp $
  */
 
+#define USE_COMPAT_CONST
 #include "default.h"
 #include "tkPort.h"
 #include "tkInt.h"
@@ -802,7 +803,7 @@
     } else if ((c == 'i') && (strncmp(argv[1], "insert", length) == 0)
 	    && (length >= 3)) {
 	int i, j, numTags;
-	CONST char **tagNames;
+	char **tagNames;
 	TkTextTag **oldTagArrayPtr;
 
 	if (argc < 4) {
@@ -2225,7 +2226,7 @@
 		i = p - startOfLine;
 		thisLength = patLength;
 	    } else {
-		CONST char *start, *end;
+		char *start, *end;
 		int match;
 
 		match = Tcl_RegExpExec(interp, regexp,
@@ -2386,7 +2387,7 @@
 					 * the text manual entry for details. */
 {
     int argc, i, count, c;
-    CONST char **argv;
+    char **argv;
     TkTextTabArray *tabArrayPtr;
     TkTextTab *tabPtr;
     Tcl_UniChar ch;
@@ -2719,7 +2720,7 @@
 	Tcl_AppendElement(interp, buffer);
 	return TCL_OK;
     } else {
-	CONST char *argv[4];
+	char *argv[4];
 	char *list;
 	int result;
 	argv[0] = key;
Index: generic/tkWindow.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkWindow.c,v
retrieving revision 1.50
diff -u -r1.50 tkWindow.c
--- generic/tkWindow.c	19 Jun 2002 19:37:54 -0000	1.50
+++ generic/tkWindow.c	16 Jul 2002 01:04:02 -0000
@@ -15,6 +15,7 @@
  * RCS: @(#) $Id: tkWindow.c,v 1.50 2002/06/19 19:37:54 mdejong Exp $
  */
 
+#define USE_COMPAT_CONST
 #include "tkPort.h"
 #include "tkInt.h"
 
@@ -2795,7 +2796,7 @@
 {
     char *p;
     int argc, code;
-    CONST char **argv; 
+    char **argv; 
     char *args[20];
     CONST char *argString = NULL;
     Tcl_DString class;
Index: unix/tkUnixSend.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/unix/tkUnixSend.c,v
retrieving revision 1.8
diff -u -r1.8 tkUnixSend.c
--- unix/tkUnixSend.c	19 Jun 2002 19:37:55 -0000	1.8
+++ unix/tkUnixSend.c	16 Jul 2002 01:04:03 -0000
@@ -15,6 +15,7 @@
  * RCS: @(#) $Id: tkUnixSend.c,v 1.8 2002/06/19 19:37:55 mdejong Exp $
  */
 
+#define USE_COMPAT_CONST
 #include "tkPort.h"
 #include "tkInt.h"
 #include "tkUnixInt.h"
@@ -603,7 +604,7 @@
     Atom actualType;
     char *property;
     Tk_ErrorHandler handler;
-    CONST char **argv;
+    char **argv;
 
     property = NULL;
 
