Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	27 Jan 2007 16:33:16 -0000	1.43
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	1 Feb 2007 09:00:35 -0000	1.44
@@ -710,10 +710,12 @@
       $__class folder_type -folder_id $parent_id register
       db_dml lock_objects "LOCK TABLE acs_objects IN SHARE ROW EXCLUSIVE MODE"
       set revision_id [db_nextval acs_object_id_seq]
+
       if {$name eq ""} {
 	# we have an anonymous item, use a unique value for the name
 	set name $revision_id
       }
+
       set item_id [db_string content_item__new \
 		       [subst [[self class] set content_item__new]]]