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.132 -r1.189.2.133
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	23 Aug 2022 18:44:55 -0000	1.189.2.132
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	5 Sep 2022 15:19:17 -0000	1.189.2.133
@@ -2147,18 +2147,6 @@
     }
 }
 
-ad_proc -public util_sets_equal_p { list1 list2 } {
-    Tests whether each unique string in list1 occurs as many
-    times in list1 as in list2 and vice versa (regardless of order).
-
-    @return 1 if the lists have identical sets and 0 otherwise
-
-    @author Peter Marklund
-} {
-    return [expr {[llength $list1] == [llength $list2] &&
-                  [lsort $list1] eq [lsort $list2]}]
-}
-
 ad_proc -public util_subset_p {
     list1
     list2