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.42.2.3 -r1.42.2.4
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	28 Apr 2004 02:08:31 -0000	1.42.2.3
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	7 May 2004 02:51:11 -0000	1.42.2.4
@@ -651,7 +651,7 @@
     @return revision_id
 } {
 
-    if {[ad_parameter "StoreFilesInDatabaseP" -package_id $package_id]} {
+    if {[parameter::get -parameter "StoreFilesInDatabaseP" -package_id $package_id]} {
 	set indbp "t"
     } else {
 	set indbp "f"
@@ -708,7 +708,7 @@
     @return revision_id
 } {
 
-    if {[ad_parameter "StoreFilesInDatabaseP" -package_id $package_id]} {
+    if {[parameter::get -parameter "StoreFilesInDatabaseP" -package_id $package_id]} {
 	set storage_type "lob"
     } else {
 	set storage_type "file"