Index: openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	28 Mar 2018 23:36:17 -0000	1.6
+++ openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	7 Apr 2018 11:30:04 -0000	1.7
@@ -118,7 +118,7 @@
              parentcol.table_name = upper(:table_name)
          order by child_table
        " {             
-        if { [expr (($child_count % 3) == 0)] } {
+        if { (($child_count % 3) == 0) } {
             append return_string "\n--"
 	}
         if { $html_anchor_p == "t" } {