Index: openacs-4/packages/forums/tcl/forums-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/forums/tcl/forums-procs.tcl	23 Jul 2018 14:18:12 -0000	1.36
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	21 Dec 2018 14:52:53 -0000	1.37
@@ -255,10 +255,20 @@
     db_dml update_forum_disabled_p {}
 }
 
-ad_proc -public forum::use_ReadingInfo_p {} {
+ad_proc -public forum::use_ReadingInfo_p {{-package_id ""}} {
     @return 1 if the UseReadingInfo package parameter is true, 0 otherwise.
 } {
-    return [string is true -strict [parameter::get_from_package_key -package_key forums -parameter UseReadingInfo -default f]]
+    if {$package_id eq ""} {
+        if {[ns_conn isconnected]} {
+            set package_id [ad_conn package_id]
+        } else {
+            set package_id [lindex [apm_package_ids_from_key -package_key forums -mounted] 0]
+        }
+    }
+    return [string is true -strict [parameter::get \
+                                        -package_id $package_id \
+                                        -parameter UseReadingInfo \
+                                        -default f]]
 }
 
 ad_proc forum::valid_forum_id_p {