Index: openacs-4/packages/notifications/tcl/reply-sweep-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/reply-sweep-init.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/notifications/tcl/reply-sweep-init.tcl	7 Aug 2017 23:48:13 -0000	1.6
+++ openacs-4/packages/notifications/tcl/reply-sweep-init.tcl	1 Nov 2022 16:15:51 -0000	1.6.2.1
@@ -10,9 +10,10 @@
 
 # Roberto Mello (12/2002): Added parameter and check for qmail queue scanning
 
-set scan_replies_p [parameter::get \
-                        -package_id [apm_package_id_from_key notifications] \
-                        -parameter EmailQmailQueueScanP -default 0]
+set scan_replies_p [parameter::get_from_package_key \
+                        -package_key notifications \
+                        -parameter EmailQmailQueueScanP \
+                        -default 0]
 
 if { $scan_replies_p == 1 } {
     ad_schedule_proc -thread t 60 notification::reply::sweep::scan_all_replies