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 -N -r1.18 -r1.19
--- openacs-4/packages/forums/lib/forums/forums-chunk.tcl	11 Oct 2017 12:07:52 -0000	1.18
+++ openacs-4/packages/forums/lib/forums/forums-chunk.tcl	16 Nov 2017 10:58:24 -0000	1.19
@@ -18,7 +18,7 @@
 set table_bgcolor [parameter::get -parameter table_bgcolor]
 set table_other_bgcolor [parameter::get -parameter table_other_bgcolor]
 
-set useReadingInfo [forum::use_ReadingInfo_p]
+set useReadingInfo [string is true [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 -N -r1.22 -r1.23
--- openacs-4/packages/forums/lib/message/threads-chunk.tcl	11 Oct 2017 11:04:54 -0000	1.22
+++ openacs-4/packages/forums/lib/message/threads-chunk.tcl	16 Nov 2017 10:58:24 -0000	1.23
@@ -17,7 +17,7 @@
 
 forum::get -forum_id $forum_id -array forum
 
-set useReadingInfo [forum::use_ReadingInfo_p]
+set useReadingInfo [string is true [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 -N -r1.54 -r1.55
--- openacs-4/packages/forums/www/message-view.tcl	27 Sep 2017 11:07:52 -0000	1.54
+++ openacs-4/packages/forums/www/message-view.tcl	16 Nov 2017 10:58:24 -0000	1.55
@@ -59,7 +59,7 @@
     set message_url [export_vars -base [ad_conn url] {message_id $message(message_id)}]
 }
 
-if { [forum::use_ReadingInfo_p] && $message(state) eq "approved" } {
+if { [string is true [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 {}]
 }