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 -N -r1.162 -r1.163
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	19 Jul 2018 09:52:42 -0000	1.162
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	24 Jul 2018 08:10:28 -0000	1.163
@@ -2131,20 +2131,8 @@
 
     @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_subset_p {