Index: openacs-4/packages/xotcl-core/www/show-object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v
diff -u -r1.15.6.3 -r1.15.6.4
--- openacs-4/packages/xotcl-core/www/show-object.tcl	17 Sep 2013 17:49:24 -0000	1.15.6.3
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	17 Sep 2013 19:28:10 -0000	1.15.6.4
@@ -196,7 +196,7 @@
   }
   if {[llength $class_hierarchy]>5} {set class_hierarchy {}}
   eval lappend class_hierarchy [$object info heritage]
-  if {[lsearch -exact $class_hierarchy $object] == -1} {lappend class_hierarchy $object}
+  if {$object ni $class_hierarchy} {lappend class_hierarchy $object}
   #::xotcl::Object msg class_hierarchy=$class_hierarchy
   set class_hierarchy [ns_urlencode $class_hierarchy]
   set documented_only [expr {$show_methods < 2}]
Index: openacs-4/packages/xowiki/tcl/category-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/category-procs.tcl,v
diff -u -r1.26.2.1 -r1.26.2.2
--- openacs-4/packages/xowiki/tcl/category-procs.tcl	17 Sep 2013 17:49:24 -0000	1.26.2.1
+++ openacs-4/packages/xowiki/tcl/category-procs.tcl	17 Sep 2013 19:28:10 -0000	1.26.2.2
@@ -20,7 +20,7 @@
     # Return matched category trees matching the specified names (or all)
 
     # provide compatibility with earlier versions of categories
-    set have_locale [expr {[lsearch [info args category_tree::get_mapped_trees] locale] > -1}]
+    set have_locale [expr {"locale" in [info args category_tree::get_mapped_trees]}]
     set mapped_trees [expr {$have_locale ?
                             [category_tree::get_mapped_trees $object_id $locale] :
                             [category_tree::get_mapped_trees $object_id]}]