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 -N -r1.16 -r1.17
--- openacs-4/packages/file-storage/www/file-add.tcl	15 Jun 2007 17:40:28 -0000	1.16
+++ openacs-4/packages/file-storage/www/file-add.tcl	3 Oct 2011 09:56:00 -0000	1.17
@@ -208,7 +208,7 @@
 	
 	if {![empty_string_p $existing_item_id]} {
 	    # file with the same name already exists in this folder
-            if { [ad_parameter "BehaveLikeFilesystemP" -package_id [ad_conn package_id]] } {
+            if { [parameter::get -parameter "BehaveLikeFilesystemP" -package_id [ad_conn package_id]] } {
                 # create a new revision -- in effect, replace the existing file
                 set this_file_id $existing_item_id
                 permission::require_permission \
@@ -288,7 +288,7 @@
     set lock_title_p 0
 }
 
-if { [ad_parameter "BehaveLikeFilesystemP" -package_id [ad_conn package_id]] } {
+if { [parameter::get -parameter "BehaveLikeFilesystemP" -package_id [ad_conn package_id]] } {
     set instructions "[_ file-storage.Add_Dup_As_Revision]"
 } else {
     set instructions "[_ file-storage.Add_Dup_As_New_File]"