@@ -67,11 +67,11 @@
  */
 int CipherInfo(Tcl_Interp *interp, Tcl_Obj *nameObj) {
     const EVP_CIPHER *cipher;
     Tcl_Obj *resultObj, *listObj;
     unsigned long flags, mode;
-    unsigned char *modeName = NULL;
+    char *modeName = NULL;
     char *name = Tcl_GetStringFromObj(nameObj, (Tcl_Size *) NULL);
 
     /* Get cipher */
     cipher = EVP_get_cipherbyname(name);
 
@@ -378,11 +378,11 @@
 
     if (sk != NULL) {
 	Tcl_Obj *resultObj = NULL;
 
 	if (!verbose) {
-	    char *cp;
+	    const char *cp;
 	    resultObj = Tcl_NewListObj(0, NULL);
 	    if (resultObj == NULL) {
 		res = TCL_ERROR;
 		goto done;
 	    }
@@ -392,11 +392,11 @@
 		if (c == NULL) continue;
 
 		/* cipher name or (NONE) */
 		cp = SSL_CIPHER_get_name(c);
 		if (cp == NULL) break;
-		Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj(cp, -1));
+		Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj((char *) cp, -1));
 	    }
 
 	} else {
 	    char buf[BUFSIZ];
 	    resultObj = Tcl_NewStringObj("", 0);
@@ -447,14 +447,13 @@
  *	None.
  *
  *-------------------------------------------------------------------
  */
 int DigestInfo(Tcl_Interp *interp, Tcl_Obj *nameObj) {
-    EVP_MD *md;
+    const EVP_MD *md;
     Tcl_Obj *resultObj, *listObj;
     unsigned long flags;
-    int res = TCL_OK;
     char *name = Tcl_GetStringFromObj(nameObj, (Tcl_Size *) NULL);
 
     /* Get message digest */
     md = EVP_get_digestbyname(name);