Index: openacs-4/packages/acs-subsite/www/user/portrait/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/index.tcl,v
diff -u -N -r1.10 -r1.10.8.1
--- openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	31 Mar 2009 14:39:45 -0000	1.10
+++ openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	6 Sep 2013 16:01:47 -0000	1.10.8.1
@@ -40,7 +40,7 @@
 
 if { $current_user_id == $user_id } {
     set admin_p 1
-    ad_require_permission $user_id "write"
+    permission::require_permission -object_id $user_id -privilege "write"
 } else {
     set admin_p 0
 }