Index: openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	8 Sep 2008 20:28:50 -0000	1.12
+++ openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	15 Jan 2009 21:39:48 -0000	1.13
@@ -163,7 +163,8 @@
                 set digest_from_ldap [base64::decode $digest_base64]
                 set hash_from_ldap [string range $digest_from_ldap 0 15]
                 set salt_from_ldap [string range $digest_from_ldap 16 end]
-                set hash_from_user [binary format H* [md5::md5 "${password_from_user}${salt_from_ldap}"]]
+	        package require md5
+                set hash_from_user [md5::md5 -- ${password_from_user}${salt_from_ldap}]
                 if { [string equal $hash_from_ldap $hash_from_user] } {
                     set result 1
                 }
@@ -205,11 +206,13 @@
     
     switch $password_hash {
         MD5 {
-            set new_password_hashed [binary format H* [md5::md5 $new_password]]
+            package require md5
+            set new_password_hashed [md5::md5 $new_password]
         }
         SMD5 {
+            package require md5
             set salt [ad_generate_random_string 4]
-            set new_password_hashed [binary format H* [md5::md5 "${new_password}${salt}"]]
+            set new_password_hashed [md5::md5 "${new_password}${salt}"]
             append new_password_hashed $salt
         }
         SHA {