Index: openacs-4/packages/forums/lib/forums/forums-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums/forums-chunk.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/forums/lib/forums/forums-chunk.tcl	16 Nov 2017 11:03:26 -0000	1.20
+++ openacs-4/packages/forums/lib/forums/forums-chunk.tcl	16 Nov 2017 12:40:08 -0000	1.21
@@ -18,7 +18,7 @@
 set table_bgcolor [parameter::get -parameter table_bgcolor]
 set table_other_bgcolor [parameter::get -parameter table_other_bgcolor]
 
-set useReadingInfo [string is true -strict [forum::use_ReadingInfo_p]]
+set useReadingInfo [forum::use_ReadingInfo_p]
 if { $useReadingInfo } {
     set unread_or_new_query_clause [db_map unread_or_new_query]
 } else {
Index: openacs-4/packages/forums/lib/message/threads-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/threads-chunk.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/forums/lib/message/threads-chunk.tcl	16 Nov 2017 11:03:26 -0000	1.24
+++ openacs-4/packages/forums/lib/message/threads-chunk.tcl	16 Nov 2017 12:40:08 -0000	1.25
@@ -17,7 +17,7 @@
 
 forum::get -forum_id $forum_id -array forum
 
-set useReadingInfo [string is true -strict [forum::use_ReadingInfo_p]]
+set useReadingInfo [forum::use_ReadingInfo_p]
 if { $useReadingInfo } {
     set unread_or_new_query_clause [db_map unread_query]
     set unread_join [db_map unread_join]
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.29 -r1.30
--- openacs-4/packages/forums/tcl/forums-procs.tcl	10 Nov 2017 17:21:05 -0000	1.29
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	16 Nov 2017 12:40:08 -0000	1.30
@@ -193,7 +193,7 @@
 }
 
 ad_proc -public forum::use_ReadingInfo_p {} {
-    return [parameter::get_from_package_key -package_key forums -parameter UseReadingInfo]
+    return [string is true -strict [parameter::get_from_package_key -package_key forums -parameter UseReadingInfo -default f]]
 }
 
 ad_proc forum::valid_forum_id_p {
Index: openacs-4/packages/forums/www/message-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-view.tcl,v
diff -u -r1.56 -r1.57
--- openacs-4/packages/forums/www/message-view.tcl	16 Nov 2017 11:03:26 -0000	1.56
+++ openacs-4/packages/forums/www/message-view.tcl	16 Nov 2017 12:40:08 -0000	1.57
@@ -59,7 +59,7 @@
     set message_url [export_vars -base [ad_conn url] {message_id $message(message_id)}]
 }
 
-if { [string is true -strict [forum::use_ReadingInfo_p]] && $message(state) eq "approved" } {
+if { [forum::use_ReadingInfo_p] && $message(state) eq "approved" } {
     set msg_id $message(root_message_id)
     set db_antwort [db_exec_plsql forums_reading_info__user_add_msg {}]
 }