Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	9 Sep 2018 10:14:04 -0000	1.26
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	14 Sep 2018 11:08:26 -0000	1.27
@@ -3174,6 +3174,27 @@
     }
 }
 
+# Since Tcl 8.5, lsearch has -index flag and can therefore achieve
+# this natively.
+ad_proc -deprecated -public util_search_list_of_lists {
+    list_of_lists query_string
+    {sublist_element_pos 0}
+} {
+    Returns position of sublist that contains QUERY_STRING at SUBLIST_ELEMENT_POS.
+} {
+    set sublist_index 0
+    foreach sublist $list_of_lists {
+        set comparison_element [lindex $sublist $sublist_element_pos]
+        if { $query_string eq $comparison_element  } {
+            return $sublist_index
+        }
+        incr sublist_index
+    }
+    # didn't find it
+    return -1
+}
+
+
 ########################################################################
 # deprecated site-nodes-procs.tcl
 ########################################################################
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.175 -r1.176
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	9 Sep 2018 10:47:08 -0000	1.175
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	14 Sep 2018 11:08:26 -0000	1.176
@@ -1094,21 +1094,6 @@
     return $num
 }
 
-ad_proc -public util_search_list_of_lists {list_of_lists query_string {sublist_element_pos 0}} {
-    Returns position of sublist that contains QUERY_STRING at SUBLIST_ELEMENT_POS.
-} {
-    set sublist_index 0
-    foreach sublist $list_of_lists {
-        set comparison_element [lindex $sublist $sublist_element_pos]
-        if { $query_string eq $comparison_element  } {
-            return $sublist_index
-        }
-        incr sublist_index
-    }
-    # didn't find it
-    return -1
-}
-
 ad_proc -public util_report_successful_library_load {
     {extra_message ""}
 } {