Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -N -r1.52 -r1.52.2.1
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	8 Dec 2012 18:20:36 -0000	1.52
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	5 Sep 2013 11:38:46 -0000	1.52.2.1
@@ -382,7 +382,7 @@
      foreach name $names {
          if { [regexp {^([0-9]+)\.start$} $name match request] 
               && $now - [lindex [nsv_get ds_request $name] 0] > $lifetime } {
-             if {[expr {$request > $max_request}]} { 
+             if {$request > $max_request} { 
                  set max_request $request
              }
          }