Index: openacs-4/packages/file-manager/tcl/file-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-manager/tcl/file-manager-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-manager/tcl/file-manager-procs.tcl	11 Dec 2003 21:40:03 -0000	1.4
+++ openacs-4/packages/file-manager/tcl/file-manager-procs.tcl	24 Mar 2004 22:54:27 -0000	1.5
@@ -36,7 +36,8 @@
 ad_proc -private fm_check_permission {} { 
     Require that the user have sitewide admin
 } { 
-    permission::require_permission -object_id [site_node::get_element -url / -element package_id] -privilege admin
+    array set node [site_node::get -url /]
+    ad_require_permission $node(package_id) admin
 }
 
 
@@ -138,4 +139,4 @@
 	}
 	return $files
     }
-}
\ No newline at end of file
+}