Index: openacs-4/packages/forums/lib/forums-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums-portlet.tcl,v
diff -u -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/forums/lib/forums-portlet.tcl	12 Sep 2015 11:06:21 -0000	1.4.2.1
+++ openacs-4/packages/forums/lib/forums-portlet.tcl	12 Jul 2016 18:46:56 -0000	1.4.2.2
@@ -22,7 +22,7 @@
 if { [info exists n] } {
     # need to do a type check, as this is interpolated into the PG query
     # (PG LIMIT clause doesn't accept bind vars)
-    if { ![string is integer $n] || ![expr {$n > 0}] } {
+    if { ![string is integer $n] || $n > 0 } {
         error "n must be an integer greater than 0"
     }
 } else {
@@ -31,14 +31,14 @@
 if {![info exists class]} {
     set class ""
 }
-if { ![info exists cache] || [expr {$cache < 0}] } {
+if { ![info exists cache] || $cache < 0 } {
     set cache 0
 }
-if { (![info exists package_id] || $package_id eq "") } {
+if { ![info exists package_id] || $package_id eq "" } {
     set package_id [site_node::get_element \
                         -url $base_url -element object_id]
 }
-if { (![info exists base_url] || $base_url eq "") } {
+if { ![info exists base_url] || $base_url eq "" } {
     set base_url [lindex [site_node::get_url_from_object_id \
                               -object_id $package_id] 0]
 }