Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl,v
diff -u -r1.22.4.1 -r1.22.4.2
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	30 Sep 2013 17:44:27 -0000	1.22.4.1
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	2 Oct 2013 08:42:38 -0000	1.22.4.2
@@ -229,7 +229,7 @@
     @error
 } {
     upvar $array_name local_array
-    if {[lsearch {live latest} $revision] == -1} {
+    if {$revision ni {live latest}} {
         error "content::item::get revision was '${revision}'. It must be 'live' or 'latest'"
     }
     set content_type [content_type -item_id $item_id]
@@ -274,7 +274,7 @@
     foreach {attribute_list} $attributes {
 	set attribute [lindex $attribute_list 0]
 	set value [lindex $attribute_list 1]	
-	if {[lsearch $valid_attributes $attribute] > -1}  {
+	if {$attribute in $valid_attributes}  {
 
 	    # create local variable to use for binding