Index: openacs-4/packages/acs-object-management/tcl/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/tcl/object-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-object-management/tcl/object-procs.tcl	9 May 2011 02:03:46 -0000	1.9
+++ openacs-4/packages/acs-object-management/tcl/object-procs.tcl	7 Apr 2018 11:03:47 -0000	1.10
@@ -42,7 +42,7 @@
     set type_attribute_names [object_type::get_attribute_names \
                                  -object_type $object_type]
     foreach attribute_name [array names local_attributes_array] {
-        if { [lsearch -exact $type_attribute_names $attribute_name] == -1 } {
+        if {$attribute_name ni $type_attribute_names} {
             set local_supertype_attributes_array($attribute_name) \
                 $local_attributes_array($attribute_name)
         } else {