Index: openacs-4/packages/acs-subsite/www/user/portrait/comment-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/comment-edit.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/www/user/portrait/comment-edit.tcl	31 Mar 2009 14:39:45 -0000	1.8
+++ openacs-4/packages/acs-subsite/www/user/portrait/comment-edit.tcl	27 Oct 2014 16:40:03 -0000	1.9
@@ -6,7 +6,7 @@
     @cvs-id $Id$
 } {
     {return_url "" }
-    {user_id ""}
+    {user_id:naturalnum ""}
 } -properties {
     context:onevalue
     export_vars:onevalue
@@ -21,7 +21,7 @@
     set user_id $current_user_id
 }
 
-ad_require_permission $user_id "write"
+permission::require_permission -object_id $user_id -privilege "write"
 
 if {![db_0or1row user_info {}]} {
     ad_return_error "Account Unavailable" "We can't find you (user #$user_id) in the users table.  Probably your account was deleted for some reason."