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 -N -r1.2 -r1.3
--- openacs-4/packages/forums/lib/forums-portlet.tcl	15 Dec 2006 22:45:33 -0000	1.2
+++ openacs-4/packages/forums/lib/forums-portlet.tcl	20 Sep 2008 12:10:28 -0000	1.3
@@ -22,13 +22,13 @@
 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] || ![expr {$n > 0}] } {
         error "n must be an integer greater than 0"
     }
 } else {
     set n 2
 }
-if { ![info exists cache] || [expr $cache < 0] } {
+if { ![info exists cache] || [expr {$cache < 0}] } {
     set cache 0
 }
 if { ![exists_and_not_null package_id] } {