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.57 -r1.58
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	9 May 2007 18:36:10 -0000	1.57
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	9 May 2007 21:04:11 -0000	1.58
@@ -194,9 +194,10 @@
 	if {![info exists default]} {
 	  set default ""
 	}
-	lappend parameters [list $attribute_name default]
+	lappend parameters [list $attribute_name $default]
 	unset default
       }
+      #my log "--parameter [self] parameter [list $parameters]"
       my parameter $parameters
     }
   }
@@ -810,6 +811,7 @@
 	# we have an autonamed item, use a unique value for the name
 	set name [expr {[my exists __autoname_prefix] ? 
                         "[my set __autoname_prefix]$revision_id" : $revision_id}]
+        if {$title eq ""} {set title $name}
       }
       #set item_id [::xo::db::CONTENT_ITEM NEW [[self class] set content_item__new_args]]
       set item_id [eval ::xo::db::content_item new [[self class] set content_item__new_args]]