Index: openacs-4/packages/download/www/archive-version-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/archive-version-add.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/download/www/archive-version-add.tcl	1 Mar 2005 00:01:29 -0000	1.5
+++ openacs-4/packages/download/www/archive-version-add.tcl	12 Sep 2013 10:26:11 -0000	1.6
@@ -16,7 +16,7 @@
 auth::require_login
 set repository_id [download_repository_id]
 
-ad_require_permission $archive_id write
+permission::require_permission -object_id $archive_id -privilege write
 
 if ![db_0or1row archive_info_select {
    select da.archive_name,