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.50.2.3 -r1.50.2.4
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	5 Oct 2013 12:36:53 -0000	1.50.2.3
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	6 Oct 2013 14:09:35 -0000	1.50.2.4
@@ -1042,8 +1042,8 @@
                          "[my set __title_prefix] ($name)" : $name}]
       }
       #my msg --[subst [[self class] set content_item__new_args]]
-      set item_id [::xo::db::sql::content_item new \
-		       {*}[[self class] set content_item__new_args]]
+      set item_id [eval ::xo::db::sql::content_item new \
+		       [[self class] set content_item__new_args]]
       if {$storage_type eq "file"} {
         set text [cr_create_content_file $item_id $revision_id $import_file]
       }