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.135 -r1.189.2.136
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	5 Sep 2022 16:32:13 -0000	1.189.2.135
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	5 Sep 2022 16:43:27 -0000	1.189.2.136
@@ -3336,14 +3336,18 @@
     return $files
 }
 
-ad_proc -public util::string_check_urlsafe {
+ad_proc -deprecated util::string_check_urlsafe {
     s1
 } {
     This proc accepts a string and verifies if it is url safe.
     - make sure there is no space
     - make sure there is no special characters except '-' or '_'
     Returns 1 if yes and 0 if not.
     Meant to be used in the validation section of ad_form.
+
+    DEPRECATED: this proc is not in use in upstream code as of
+    2022-09-5. It also looks as if this will return true when a string
+    is NOT safe.
 } {
     return [regexp {[<>:\"|/@\#%&+\\ ]} $s1]
 }