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 {