Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -N -r1.64 -r1.65
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	25 Jul 2018 19:40:42 -0000	1.64
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	22 Nov 2018 15:05:44 -0000	1.65
@@ -878,10 +878,7 @@
     # We segregate messages by language. It might reduce contention
     # if we segregage instead by package. Check for problems with ns_info locks.
 
-    # LARS TODO: Use a mutex
-    if { ![nsv_exists lang_message_cache executed_p] } {
-        nsv_set lang_message_cache executed_p 1
-
+    if {[nsv_incr lang_message_cache executed_p] == 1} {
         if { $package_key eq "" } {
             set package_where_clause ""
         } else {