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.19 -r1.20
--- openacs-4/packages/forums/lib/forums/forums-chunk.tcl	16 Nov 2017 10:58:24 -0000	1.19
+++ openacs-4/packages/forums/lib/forums/forums-chunk.tcl	16 Nov 2017 11:03:26 -0000	1.20
@@ -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 [forum::use_ReadingInfo_p]]
+set useReadingInfo [string is true -strict [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.23 -r1.24
--- openacs-4/packages/forums/lib/message/threads-chunk.tcl	16 Nov 2017 10:58:24 -0000	1.23
+++ openacs-4/packages/forums/lib/message/threads-chunk.tcl	16 Nov 2017 11:03:26 -0000	1.24
@@ -17,7 +17,7 @@
 
 forum::get -forum_id $forum_id -array forum
 
-set useReadingInfo [string is true [forum::use_ReadingInfo_p]]
+set useReadingInfo [string is true -strict [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/www/message-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-view.tcl,v
diff -u -r1.55 -r1.56
--- openacs-4/packages/forums/www/message-view.tcl	16 Nov 2017 10:58:24 -0000	1.55
+++ openacs-4/packages/forums/www/message-view.tcl	16 Nov 2017 11:03:26 -0000	1.56
@@ -59,7 +59,7 @@
     set message_url [export_vars -base [ad_conn url] {message_id $message(message_id)}]
 }
 
-if { [string is true [forum::use_ReadingInfo_p]] && $message(state) eq "approved" } {
+if { [string is true -strict [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 {}]
 }