Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -N -r1.114.2.5 -r1.114.2.6
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	31 Mar 2019 11:17:59 -0000	1.114.2.5
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	5 Oct 2019 12:57:36 -0000	1.114.2.6
@@ -2237,7 +2237,7 @@
 
 } {
     set pos [lsearch -index 0 -exact $::acs::known_database_types $db_type]
-    return [lindex [lindex $::acs::known_database_types $pos] 2]
+    return [lindex $::acs::known_database_types $pos 2]
     # return [util_memoize [list db_string pretty_db_name_select "
     #     select pretty_db_name
     #     from apm_package_db_types
Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -N -r1.109.2.7 -r1.109.2.8
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	10 Aug 2019 14:33:26 -0000	1.109.2.7
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	5 Oct 2019 12:57:36 -0000	1.109.2.8
@@ -2427,7 +2427,7 @@
         set end_index [expr {$len-[string length $ellipsis]-1}]
 
         # Back up to the nearest whitespace
-        if {[regexp -indices {\s\S*$} [string range $string 0 [expr {$end_index+1}]] match]} {
+        if {[regexp -indices {\s\S*$} [string range $string 0 $end_index+1] match]} {
             set last_space [lindex $match 0]
         } else {
             set last_space -1
Index: openacs-4/packages/categories/tcl/category-list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-list-procs.tcl,v
diff -u -N -r1.10 -r1.10.2.1
--- openacs-4/packages/categories/tcl/category-list-procs.tcl	31 Jan 2018 08:24:28 -0000	1.10
+++ openacs-4/packages/categories/tcl/category-list-procs.tcl	5 Oct 2019 13:02:10 -0000	1.10.2.1
@@ -268,7 +268,7 @@
     }
     set valid_tree_ids ""
     foreach tree_id $tree_ids {
-	if {[lsearch -integer $exclude_tree_ids $tree_id] == -1} {
+	if {$tree_id ni $exclude_tree_ids} {
 	    lappend valid_tree_ids $tree_id
 	}
     }