Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v
diff -u -r1.88.2.3 -r1.88.2.4
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	18 Sep 2015 07:33:48 -0000	1.88.2.3
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	20 Oct 2015 08:01:04 -0000	1.88.2.4
@@ -2604,8 +2604,9 @@
             foreach line [split $error "\n"] {
                 if { [string first NOTICE $line] == -1 } {
                     append error_lines "$line\n"
-                    set error_found [expr { $error_found || [string first ERROR $line] != -1 || \
-                                                [string first FATAL $line] != -1 } ]
+                    set error_found [expr { $error_found
+                                            || [string first ERROR $line] != -1
+                                            || [string first FATAL $line] != -1 } ]
                 }
             }
 
@@ -2737,8 +2738,9 @@
             foreach line [split $error "\n"] {
                 if { [string first NOTICE $line] == -1 } {
                     append error_lines "$line\n"
-                    set error_found [expr { $error_found || [string first ERROR $line] != -1 || \
-                                                [string first FATAL $line] != -1 } ]
+                    set error_found [expr { $error_found
+                                            || [string first ERROR $line] != -1
+                                            || [string first FATAL $line] != -1 } ]
                 }
             }