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.58 -r1.59
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	22 Dec 2017 13:51:55 -0000	1.58
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	24 Dec 2017 12:28:07 -0000	1.59
@@ -546,8 +546,10 @@
   } {
     :get_context package_id creation_user creation_ip
     #my log "ID [self] create $args"
-    if {[catch {set p [:create ::0 {*}$args]} errorMsg]} {
-      ad_log error $errorMsg
+    ad_try {
+      :create ::0 {*}$args
+    } on error {errorMsg} {
+      ad_log error "CrClass create raises: $errorMsg"
     }
     #my log "ID [::0 serialize]"
     set item_id [::0 save_new \