@@ -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.25 2007/06/22 21:20:38 hobbs2 Exp $
+ * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.c,v 1.26 2007/09/06 21:01:55 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
@@ -404,11 +404,11 @@
 
     if (statePtr->password == NULL) {
 	if (Tcl_Eval(interp, "tls::password") == TCL_OK) {
 	    char *ret = (char *) Tcl_GetStringResult(interp);
 	    strncpy(buf, ret, (size_t) size);
-	    return strlen(ret);
+	    return (int)strlen(ret);
 	} else {
 	    return -1;
 	}
     }
 
@@ -428,11 +428,11 @@
     Tcl_Release((ClientData) statePtr->interp);
 
     if (result == TCL_OK) {
 	char *ret = (char *) Tcl_GetStringResult(interp);
 	strncpy(buf, ret, (size_t) size);
-	return strlen(ret);
+	return (int)strlen(ret);
     } else {
 	return -1;
     }
 }
 #endif
@@ -531,11 +531,11 @@
 	}
     } else {
 	sk = SSL_get_ciphers(ssl);
 
 	for (index = 0; index < sk_SSL_CIPHER_num(sk); index++) {
-	    register int i;
+	    register size_t i;
 	    SSL_CIPHER_description( sk_SSL_CIPHER_value( sk, index),
 				    buf, sizeof(buf));
 	    for (i = strlen(buf) - 1; i ; i--) {
 		if (buf[i] == ' ' || buf[i] == '\n' ||
 		    buf[i] == '\r' || buf[i] == '\t') {