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 {
Index: openacs-4/packages/acs-object-management/www/admin/widget-add-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/www/admin/widget-add-edit-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-object-management/www/admin/widget-add-edit-2.tcl	10 Mar 2010 00:44:03 -0000	1.4
+++ openacs-4/packages/acs-object-management/www/admin/widget-add-edit-2.tcl	7 Apr 2018 11:03:47 -0000	1.5
@@ -38,7 +38,7 @@
     set optional_flag [expr { $required_p ? "" : ",optional" }]
     set param [lang::util::localize $param]
     
-    if {[lsearch -exact {value values options} $param] > -1} {
+    if {$param in {value values options}} {
         set param_source_options {{#acs-object-management.literal# literal}}
         if { $tcl_allowed_p } {
             lappend param_source_options {#acs-object-management.tcl_proc# eval}
@@ -75,7 +75,7 @@
         set param [template::multirow get params $i param]
         set value [template::multirow get params $i value]
         ad_set_element_value -element $param $value            
-        if {[lsearch -exact {value values options} $param] > -1} {
+        if {$param in {value values options}} {
             set param_source [template::element::get_value widget_register ${param}_source]
             if {$param_source eq "literal"} {
                 ad_set_element_value -element ${param}_literal $value
@@ -93,7 +93,7 @@
         set param [template::multirow get params $i param]        
         set param_id [template::multirow get params $i param_id]
         set param_source literal
-        if {[lsearch -exact {value values options} $param] > -1} {
+        if {$param in {value values options}} {
             set param_source [template::element::get_value widget_register ${param}_source]
             if {$param_source eq "literal"} {
                 set value [template::element::get_value widget_register ${param}_literal]