Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.67.2.1 -r1.67.2.2
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	29 Aug 2013 22:20:08 -0000	1.67.2.1
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Sep 2013 16:24:54 -0000	1.67.2.2
@@ -1145,7 +1145,7 @@
             item is not WebDAV enabled
 } {
 
-    if {  [ad_parameter "UseWebDavP"] == 0 } {
+    if {  [parameter::get -parameter "UseWebDavP"] == 0 } {
 	return "ho"
     }  
     if {[empty_string_p $package_id]} {
Index: openacs-4/packages/file-storage/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v
diff -u -r1.17 -r1.17.2.1
--- openacs-4/packages/file-storage/www/file-add.tcl	3 Oct 2011 09:56:00 -0000	1.17
+++ openacs-4/packages/file-storage/www/file-add.tcl	6 Sep 2013 16:24:55 -0000	1.17.2.1
@@ -32,7 +32,7 @@
     }
     max_size -requires {upload_file} {
 	set n_bytes [file size ${upload_file.tmpfile}]
-	set max_bytes [ad_parameter "MaximumFileSize"]
+	set max_bytes [parameter::get -parameter "MaximumFileSize"]
 	if { $n_bytes > $max_bytes } {
 	    ad_complain "Your file is larger than the maximum file size allowed on this system ([util_commify_number $max_bytes] bytes)"
 	}
Index: openacs-4/packages/file-storage/www/file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file.tcl,v
diff -u -r1.32 -r1.32.2.1
--- openacs-4/packages/file-storage/www/file.tcl	3 Oct 2011 10:01:24 -0000	1.32
+++ openacs-4/packages/file-storage/www/file.tcl	6 Sep 2013 16:24:55 -0000	1.32.2.1
@@ -32,7 +32,7 @@
 set user_id [ad_conn user_id]
 set context [fs_context_bar_list $file_id]
 
-set show_administer_permissions_link_p [ad_parameter "ShowAdministerPermissionsLinkP"]
+set show_administer_permissions_link_p [parameter::get -parameter "ShowAdministerPermissionsLinkP"]
 set root_folder_id [fs::get_root_folder]
 db_1row file_info ""
 
Index: openacs-4/packages/file-storage/www/folder-zip-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-zip-add.tcl,v
diff -u -r1.4 -r1.4.6.1
--- openacs-4/packages/file-storage/www/folder-zip-add.tcl	11 Jan 2008 18:20:57 -0000	1.4
+++ openacs-4/packages/file-storage/www/folder-zip-add.tcl	6 Sep 2013 16:24:55 -0000	1.4.6.1
@@ -29,7 +29,7 @@
     }
     max_size -requires {upload_file} {
         set n_bytes [file size ${upload_file.tmpfile}]
-        set max_bytes [ad_parameter "MaximumFileSize"]
+        set max_bytes [parameter::get -parameter "MaximumFileSize"]
         if { $n_bytes > $max_bytes } {
             ad_complain "Your file is larger than the maximum file size allowed on this system ([util_commify_number $max_bytes] bytes)"
         }
Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -r1.30.6.1 -r1.30.6.2
--- openacs-4/packages/file-storage/www/index.tcl	6 Sep 2013 12:06:51 -0000	1.30.6.1
+++ openacs-4/packages/file-storage/www/index.tcl	6 Sep 2013 16:24:55 -0000	1.30.6.2
@@ -133,7 +133,7 @@
     set up_name [lang::util::localize $up_name]
 }
 
-set use_webdav_p  [ad_parameter "UseWebDavP"]
+set use_webdav_p  [parameter::get -parameter "UseWebDavP"]
 
 if { $use_webdav_p == 1} { 
     set webdav_url [fs::webdav_url -item_id $folder_id]