Index: openacs-4/packages/openacs-bootstrap3-theme/resources/widgets/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/openacs-bootstrap3-theme/resources/widgets/login.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/openacs-bootstrap3-theme/resources/widgets/login.tcl	9 Feb 2020 15:45:31 -0000	1.7.2.1
+++ openacs-4/packages/openacs-bootstrap3-theme/resources/widgets/login.tcl	19 Jun 2022 15:33:23 -0000	1.7.2.2
@@ -11,12 +11,7 @@
 set portrait_id [acs_user::get_portrait_id -user_id $user_id]
 if {$portrait_id == 0} {
     set email [party::email -party_id $user_id]
-    if {[info commands ns_md5] ne ""} {
-        set md5 [string tolower [ns_md5 $email]]
-    } else {
-        package require md5
-        set md5 [string tolower [md5::Hex [md5::md5 -- $email]]]
-    }
+    set md5 [string tolower [ns_md5 $email]]
     set src //www.gravatar.com/avatar/$md5?size=35&d=mm
     security::csp::require img-src www.gravatar.com
 } else {