@@ -3,11 +3,11 @@
  * some modifications:
  *	Copyright (C) 2000 Ajuba Solutions
  *	Copyright (C) 2002 ActiveState Corporation
  *	Copyright (C) 2004 Starfish Systems 
  *
- * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.c,v 1.22 2004/03/24 05:22:53 razzell Exp $
+ * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.c,v 1.23 2004/06/29 11:07:08 patthoyts Exp $
  *
  * TLS (aka SSL) Channel - can be layered on any bi-directional
  * Tcl_Channel (Note: Requires Trf Core Patch)
  *
  * This was built (almost) from scratch based upon observation of
@@ -452,11 +452,11 @@
     ClientData clientData;	/* Not used. */
     Tcl_Interp *interp;
     int objc;
     Tcl_Obj	*CONST objv[];
 {
-    static CONST char *protocols[] = {
+    static CONST84 char *protocols[] = {
 	"ssl2",	"ssl3",	"tls1",	NULL
     };
     enum protocol {
 	TLS_SSL2, TLS_SSL3, TLS_TLS1, TLS_NONE
     };
@@ -1166,11 +1166,11 @@
     ClientData clientData;	/* Not used. */
     Tcl_Interp *interp;
     int objc;
     Tcl_Obj	*CONST objv[];
 {
-    const char *commands [] = { "req", NULL };
+    CONST84 char *commands [] = { "req", NULL };
     enum command { C_REQ, C_DUMMY };
     int cmd;
 
     if (objc < 2) {
 	Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?args?");