Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.140.2.81 -r1.140.2.82
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	30 Jun 2017 14:13:09 -0000	1.140.2.81
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Jul 2017 02:59:09 -0000	1.140.2.82
@@ -5185,9 +5185,22 @@
     }
 }
 
+if {[info commands ns_md5] eq ""} {
+    #
+    # In case, we are not running under NaviServer, provide a proc
+    # compatible with NaviServer's built in ns_md5
+    #
+    ad_proc ns_md5 {value} {
+        Emulation of NaviServer's ns_md5
+        
+        @author Gustaf Neumann
+    } {
+        package require md5
+        return [md5::Hex [md5::md5 -- $value]]
+    }
+}
 
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4