Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -N -r1.88.2.18 -r1.88.2.19
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	21 May 2017 09:19:36 -0000	1.88.2.18
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	23 May 2017 20:35:21 -0000	1.88.2.19
@@ -3552,7 +3552,7 @@
 } {
     #
     # If the key pattern has meta characters, iterate over the entries.
-    # Otherwise, make a direct lookup, without retrieven the all keys
+    # Otherwise, make a direct lookup, without retrieving the all keys
     # from the cache, which can cause large mutex lock times.
     #
     if {[regexp {[*\]\[]} $cache_key_pattern]} {