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.133 -r1.189.2.134
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	5 Sep 2022 15:19:17 -0000	1.189.2.133
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	5 Sep 2022 15:57:38 -0000	1.189.2.134
@@ -2691,20 +2691,7 @@
 
     @author Peter Marklund
 } {
-    if { [llength $list1] != [llength $list2] } {
-        return 0
-    }
-
-    set sorted_list1 [lsort $list1]
-    set sorted_list2 [lsort $list2]
-
-    for { set index1 0 } { $index1 < [llength $sorted_list1] } { incr index1 } {
-        if { [lindex $sorted_list1 $index1] ne [lindex $sorted_list2 $index1] } {
-            return 0
-        }
-    }
-
-    return 1
+    return [expr { [llength $list1] == [llength $list2] && [lsort $list1] eq [lsort $list2] }]
 }
 
 ad_proc -public util_list_of_ns_sets_to_list_of_lists {