Index: openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.tcl,v
diff -u -N -r1.18.4.1 -r1.18.4.2
--- openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.tcl	19 Aug 2014 17:30:25 -0000	1.18.4.1
+++ openacs-4/packages/evaluation-portlet/lib/evaluations-chunk.tcl	19 Aug 2014 17:32:20 -0000	1.18.4.2
@@ -6,7 +6,7 @@
 
 set package_id [ad_conn package_id]
 set evaluation_id [evaluation_evaluations_portlet::get_package_id_from_key -package_key "evaluation"]
-set user_id [ad_verify_and_get_user_id]
+set user_id [ad_conn user_id]
 set admin_p [permission::permission_p -party_id $user_id -object_id $package_id -privilege admin]
 set simple_p  [parameter::get -parameter "SimpleVersion" -package_id $evaluation_id -default 0]
 set base_url "[ad_conn package_url][evaluation::package_key]/"
Index: openacs-4/packages/evaluation-portlet/lib/tasks-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/lib/tasks-chunk.tcl,v
diff -u -N -r1.16.4.1 -r1.16.4.2
--- openacs-4/packages/evaluation-portlet/lib/tasks-chunk.tcl	19 Aug 2014 17:30:25 -0000	1.16.4.1
+++ openacs-4/packages/evaluation-portlet/lib/tasks-chunk.tcl	19 Aug 2014 17:32:20 -0000	1.16.4.2
@@ -5,7 +5,7 @@
 }
 
 set package_id [ad_conn package_id]
-set user_id [ad_verify_and_get_user_id]
+set user_id [ad_conn user_id]
 set admin_p [permission::permission_p -party_id $user_id -object_id $package_id -privilege admin]
 
 db_1row grade_names { *SQL* }