Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	15 Dec 2006 00:01:15 -0000	1.18
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	10 Jan 2007 21:22:03 -0000	1.19
@@ -113,8 +113,8 @@
 	# parameters to this procedure
 	
 	foreach type_attribute $type_attributes {
-	    if {![string equal "cr_revisions" [lindex $type_attribute 1]] \
-                && ![string equal "acs_objects" [lindex $type_attribute 1]]} {
+	    if {"cr_revisions" ne [lindex $type_attribute 1] \
+                && "acs_objects" ne [lindex $type_attribute 1] } {
 		lappend valid_attributes [lindex $type_attribute 2]
 	    }
 	}