Index: openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl,v
diff -u -N -r1.5.8.1 -r1.5.8.2
--- openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl	18 Aug 2014 21:56:33 -0000	1.5.8.1
+++ openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl	26 Aug 2014 10:53:44 -0000	1.5.8.2
@@ -94,7 +94,7 @@
         set mime_type [cr_filename_to_mime_type $filename]
 
         # Get the storage type
-        set indb_p [ad_decode [ad_parameter "StoreFilesInDatabaseP" -package_id [ad_conn package_id]] 1 "t" "f"]
+        set indb_p [ad_decode [parameter::get -package_id [ad_conn package_id] -parameter "StoreFilesInDatabaseP"] 1 "t" "f"]
 
         if { $new_file_p } {