Index: openacs-4/packages/attachments/www/file-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/file-add-2.tcl,v
diff -u -r1.6.4.1 -r1.6.4.2
--- openacs-4/packages/attachments/www/file-add-2.tcl	6 Sep 2013 16:01:48 -0000	1.6.4.1
+++ openacs-4/packages/attachments/www/file-add-2.tcl	7 Sep 2013 08:36:36 -0000	1.6.4.2
@@ -21,7 +21,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 } {
             # Max number of bytes is used in the error message
             set max_number_of_bytes [util_commify_number $max_bytes]
Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.44.2.1 -r1.44.2.2
--- openacs-4/packages/forums/tcl/messages-procs.tcl	5 Sep 2013 18:15:02 -0000	1.44.2.1
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	7 Sep 2013 08:36:36 -0000	1.44.2.2
@@ -90,7 +90,7 @@
             set user_id $message(user_id)
         }
     } else {
-        set user_id [party::get_by_email -email [ad_parameter -package_id [ad_acs_kernel_id] HostAdministrator]]
+        set user_id [party::get_by_email -email [parameter::get -package_id [ad_acs_kernel_id] -parameter HostAdministrator]]
     }
     set notif_user $user_id