Index: openacs-4/packages/acs-lang/acs-lang.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/acs-lang.info,v
diff -u -r1.64.2.17 -r1.64.2.18
--- openacs-4/packages/acs-lang/acs-lang.info	7 Apr 2022 12:53:59 -0000	1.64.2.17
+++ openacs-4/packages/acs-lang/acs-lang.info	26 Jun 2022 19:38:47 -0000	1.64.2.18
@@ -9,7 +9,7 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
 
-    <version name="5.10.1d1" url="http://openacs.org/repository/download/apm/acs-lang-5.10.1d1.apm">
+    <version name="5.10.1d2" url="http://openacs.org/repository/download/apm/acs-lang-5.10.1d2.apm">
         <owner url="mailto:peter@collaboraid.biz">Peter Marklund</owner>
         <summary>OpenACS Internationalization Support.</summary>
         <release-date>2021-09-15</release-date>
@@ -20,9 +20,9 @@
         <license>GPL</license>
         <maturity>3</maturity>
 
-        <provides url="acs-lang" version="5.10.1d1"/>
+        <provides url="acs-lang" version="5.10.1d2"/>
         <requires url="acs-kernel" version="5.10.0"/>
-        <requires url="acs-tcl" version="5.10.0"/>
+        <requires url="acs-tcl" version="5.10.1d14"/>
         <requires url="acs-translations" version="5.10.0"/>
         <requires url="ref-timezones" version="5.10.0"/>
         <requires url="ref-countries" version="5.9.1"/>
Index: openacs-4/packages/acs-lang/tcl/locale-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/locale-procs.tcl,v
diff -u -r1.51.2.12 -r1.51.2.13
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	28 Feb 2022 17:41:09 -0000	1.51.2.12
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	26 Jun 2022 19:38:47 -0000	1.51.2.13
@@ -316,7 +316,8 @@
     set system_locale [lang::system::site_wide_locale]
 
     if { $user_id == 0 } {
-        set locale [ad_get_cookie "ad_locale"]
+        set cookie_name [security::cookie_name locale]
+        set locale [ad_get_cookie $cookie_name]
         if {$locale ne ""} {
             #
             # Check, if someone hacked the cookie
@@ -327,7 +328,7 @@
                 #
                 # The cookie was invalid, so get rid of it.
                 #
-                ad_unset_cookie "ad_locale"
+                ad_unset_cookie $cookie_name
             }
         }
         #
@@ -402,7 +403,8 @@
 
     if { $user_id == 0 } {
         # Not logged in, use a cookie-based client locale
-        ad_set_cookie -replace t -max_age inf "ad_locale" $locale
+        set cookie_name [security::cookie_name locale]
+        ad_set_cookie -replace t -max_age inf -samesite strict $cookie_name $locale
 
         # Flush the site-wide user preference cache
         util_memoize_flush [list lang::user::site_wide_locale_not_cached $user_id]