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.4 -r1.50.2.5
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	6 Oct 2013 14:09:35 -0000	1.50.2.4
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	21 Oct 2013 06:17:01 -0000	1.50.2.5
@@ -516,11 +516,11 @@
     @return fully qualified object
   } {
     my get_context package_id creation_user creation_ip
-    my log "ID [self] create $args"
-    if {[catch {set p [eval my create ::0 $args]} errorMsg]} {
+    #my log "ID [self] create $args"
+    if {[catch {set p [my create ::0 {*}$args]} errorMsg]} {
 	my log "Error: $errorMsg, $::errorInfo"
     }
-    my log "ID [::0 serialize]"
+    #my log "ID [::0 serialize]"
     set item_id [::0 save_new \
 		     -package_id $package_id \
 		     -creation_user $creation_user \