Index: openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl	15 Nov 2006 17:11:36 -0000	1.12
+++ openacs-4/packages/acs-content-repository/tcl/content-folder-procs.tcl	10 Jan 2007 21:22:03 -0000	1.13
@@ -73,7 +73,7 @@
 
     # inherit the attributes of the parent folder
     
-    if {![string eq $parent_id ""]} {
+    if {$parent_id ne "" } {
 	
 	db_dml inherit_folder_type ""
 
@@ -198,13 +198,13 @@
 	    # create local variable to use for binding
 
 	    set $attribute $value
-	    if {![string equal "" $update_text]} {
+	    if {$update_text ne ""} {
 		append update_text ","
 	    }
 	    append update_text " ${attribute} = :${attribute} "
    	}
     }
-    if {![string equal "" $update_text]} {
+    if {$update_text ne ""} {
 
 	# we have valid attributes, update them