Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	6 Oct 2008 14:18:39 -0000	1.26
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	8 Oct 2008 10:57:25 -0000	1.27
@@ -1065,11 +1065,11 @@
 	# 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 [expr {[my exists __title_prefix] ? 
-                          "[my set __title_prefix] ($name)" : $name}]
-        }
       }
+      if {$title eq ""} {
+        set title [expr {[my exists __title_prefix] ? 
+                         "[my set __title_prefix] ($name)" : $name}]
+      }
       #my msg --[subst [[self class] set content_item__new_args]]
       set item_id [eval ::xo::db::sql::content_item new \
 		       [[self class] set content_item__new_args]]