Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.248.2.54 -r1.248.2.55
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	30 Jun 2017 18:01:33 -0000	1.248.2.54
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	4 Jul 2017 23:29:27 -0000	1.248.2.55
@@ -1522,8 +1522,7 @@
       if {[my with_photo]} {
         set portrait_id [acs_user::get_portrait_id -user_id $v]
         if {$portrait_id == 0} {
-          package require md5
-          set md5 [string tolower [md5::Hex [md5::md5 -- $user(email)]]]
+          set md5 [ns_md5 $user(email)]
           set src http://www.gravatar.com/avatar/$md5?size=[my photo_size]&d=mm
         } else {
           set src "/shared/portrait-bits.tcl?user_id=$v"