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 -r1.189.2.138 -r1.189.2.139
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	6 Sep 2022 05:09:01 -0000	1.189.2.138
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	6 Sep 2022 05:21:58 -0000	1.189.2.139
@@ -253,10 +253,15 @@
 
 
 
-ad_proc -public util_AnsiDatetoPrettyDate {
+ad_proc -deprecated util_AnsiDatetoPrettyDate {
     sql_date
 } {
     Converts 1998-09-05 to September 5, 1998
+
+    DEPRECATED: this proc hardcodes the date format and the language
+    to American English. Better alternatives exist in acs-lang.
+
+    @see lc_time_fmt
 } {
     set sql_date [string range $sql_date 0 9]
     if { ![regexp {(.*)-(.*)-(.*)$} $sql_date match year month day] } {
Index: openacs-4/packages/assessment/www/asm-admin/one-a.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-a.tcl,v
diff -u -r1.19 -r1.19.2.1
--- openacs-4/packages/assessment/www/asm-admin/one-a.tcl	17 Jul 2018 13:32:18 -0000	1.19
+++ openacs-4/packages/assessment/www/asm-admin/one-a.tcl	6 Sep 2022 05:21:58 -0000	1.19.2.1
@@ -35,7 +35,7 @@
 set anonymous_p [db_string has_privilege {} -default "f"]
 set read_p [permission::permission_p -object_id $assessment_id -privilege read -party_id -1]
 
-set creation_date [util_AnsiDatetoPrettyDate $assessment_data(creation_date)]
+set creation_date [lc_time_fmt $assessment_data(creation_date) %q]
 set creator_url [acs_community_member_url -user_id $assessment_data(creation_user)]
 set history_url [export_vars -base assessment-history {assessment_id}]
 set edit_url [export_vars -base assessment-form {assessment_id}]
Index: openacs-4/packages/survey/www/admin/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/one.tcl,v
diff -u -r1.13.2.3 -r1.13.2.4
--- openacs-4/packages/survey/www/admin/one.tcl	17 Feb 2021 18:43:02 -0000	1.13.2.3
+++ openacs-4/packages/survey/www/admin/one.tcl	6 Sep 2022 05:21:58 -0000	1.13.2.4
@@ -40,7 +40,7 @@
 }
 set return_html ""
 
-set creation_date [util_AnsiDatetoPrettyDate $survey_info(creation_date)]
+set creation_date [lc_time_fmt $survey_info(creation_date) %q]
 set user_link [acs_community_member_url -user_id $survey_info(creation_user)]
 if {$survey_info(single_response_p) == "t"} {
     set response_limit_toggle "[_ survey.allow_multiple]"