diff --git a/lib/modules/SSL.pmod/cipher.pike b/lib/modules/SSL.pmod/cipher.pike
index 1d87503fe0793a8bf70e2d7775f1c6d09f0cc797..a8b9b52e4f2f232a1cedf1e305c1de215dd9750b 100644
--- a/lib/modules/SSL.pmod/cipher.pike
+++ b/lib/modules/SSL.pmod/cipher.pike
@@ -1,4 +1,4 @@
-/* $Id: cipher.pike,v 1.6 1997/05/31 22:03:52 grubba Exp $
+/* $Id: cipher.pike,v 1.7 1998/01/20 16:11:53 nisse Exp $
  *
  */
 
@@ -25,11 +25,11 @@ class mac_none
 
 class mac_sha
 {
-  string pad_1 =  "6666666666666666666666666666666666666666";
-  string pad_2 = ("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-		  "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\");
+  constant pad_1 =  "6666666666666666666666666666666666666666";
+  constant pad_2 = ("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+		    "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\");
 
-  program algorithm = Crypto.sha;
+  constant algorithm = Crypto.sha;
 
   string secret;
 
@@ -69,11 +69,11 @@ class mac_sha
 class mac_md5 {
   inherit mac_sha;
 
-  string pad_1 =  "666666666666666666666666666666666666666666666666";
-  string pad_2 = ("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-		  "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\");
+  constant pad_1 =  "666666666666666666666666666666666666666666666666";
+  constant pad_2 = ("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+		    "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\");
   
-  program algorithm = Crypto.md5;
+  constant algorithm = Crypto.md5;
 }
 
 #if 0