Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v
diff -u -N -r1.40.6.1 -r1.40.6.2
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	19 Aug 2014 07:35:54 -0000	1.40.6.1
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	19 Aug 2014 07:37:07 -0000	1.40.6.2
@@ -1204,7 +1204,7 @@
     
 } {
     
-    set creation_user [ad_verify_and_get_user_id]
+    set creation_user [ad_conn user_id]
     set creation_ip [ad_conn peeraddr]
     
     set item_name "${content_type}_${item_id}"