Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -N -r1.44 -r1.44.2.1
--- openacs-4/packages/forums/tcl/messages-procs.tcl	10 Oct 2009 22:14:30 -0000	1.44
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	5 Sep 2013 18:15:02 -0000	1.44.2.1
@@ -271,15 +271,14 @@
 	    callback forum::message_delete -package_id [ad_conn package_id] -message_id $message_id
 	}
 
-			if { [forum::use_ReadingInfo_p] && [expr { [db_string is_root "select parent_id from forums_messages where message_id = :message_id"] eq "" } ] } {
-				set db_antwort [db_string forums_reading_info__remove_msg {
-        select forums_reading_info__remove_msg (
-            :message_id
-        );
-    }]
-			}
+	if { [forum::use_ReadingInfo_p] 
+	     && [db_string is_root "select parent_id from forums_messages where message_id = :message_id"] eq ""  
+	 } {
+	    set db_antwort [db_string forums_reading_info__remove_msg {
+		select forums_reading_info__remove_msg (:message_id);
+	    }]
+	}
 
-
         # Remove the notifications
         notification::request::delete_all -object_id $message_id