Index: ChangeLog
==================================================================
--- ChangeLog
+++ ChangeLog
@@ -1,5 +1,10 @@
+2003-10-07  Dan Razzell <research@starfishsystems.ca>
+
+	* tls.c: added CONST with intent similar to those from 2002-02-04.
+	[Request #811911]
+
 2003-07-07  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tls.c (Tls_Init):   added tls::misc command provided by
 	* tlsX509.c:          Wojciech Kocjan (wojciech kocjan.org)
 	* tests/keytest1.tcl: to expose more low-level SSL commands

Index: tls.c
==================================================================
--- tls.c
+++ tls.c
@@ -3,11 +3,11 @@
  * some modifications:
  *	Copyright (C) 2000 Ajuba Solutions
  *	Copyright (C) 2002 ActiveState Corporation
  *	Copyright (C) 2003 Starfish Systems 
  *
- * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.c,v 1.17 2003/07/07 20:24:49 hobbs Exp $
+ * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.c,v 1.18 2003/10/07 22:57:02 razzell 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
@@ -194,11 +194,11 @@
 
     if (where & (SSL_CB_LOOP|SSL_CB_EXIT)) {
 	Tcl_ListObjAppendElement( statePtr->interp, cmdPtr,
 	    Tcl_NewStringObj( SSL_state_string_long(ssl), -1) );
     } else if (where & SSL_CB_ALERT) {
-	char *cp = (char *) SSL_alert_desc_string_long(ret);
+	CONST char *cp = (char *) SSL_alert_desc_string_long(ret);
 
 	Tcl_ListObjAppendElement( statePtr->interp, cmdPtr,
 	    Tcl_NewStringObj( cp, -1) );
     } else {
 	Tcl_ListObjAppendElement( statePtr->interp, cmdPtr,