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 -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" } {
Index: openacs-4/packages/photo-album/tcl/photo-album-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/tcl/photo-album-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/photo-album/tcl/photo-album-procs.tcl	29 Mar 2018 08:19:43 -0000	1.24
+++ openacs-4/packages/photo-album/tcl/photo-album-procs.tcl	7 Apr 2018 11:32:49 -0000	1.25
@@ -465,7 +465,7 @@
 } {
 
     set rows_per_page [parameter::get -parameter ThumbnailsPerPage]
-    set start_row [expr $rows_per_page*[expr {$page-1}]+1]
+    set start_row [expr {$rows_per_page*($page-1) + 1}]
 
     set query "
       select *
@@ -535,7 +535,7 @@
     # what is the range about which to bracket
     set start [expr {[lsearch -exact  $ids $curr ] - $context}]
     
-    if {[expr {$start + 2 * $context + 1}] > $n_ids} { 
+    if {($start + 2 * $context + 1) > $n_ids} { 
         set start [expr {$n_ids - 2 * $context - 1}]
     } 
     if {$start < 0} { 
@@ -606,7 +606,7 @@
     set i 0
     set last {}
     foreach {id i} [pa_pagination_context_ids $cur_id $all_ids 4] {
-        if {$last ne "" && [expr {$last + 1}] != $i} {
+        if {$last ne "" && ($last + 1) != $i} {
             append photo_nav_html "&#8226;"
         } 
         set last $i