Index: openacs-4/packages/acs-templating/tcl/parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/parse-procs.tcl,v
diff -u -r1.48.2.1 -r1.48.2.2
--- openacs-4/packages/acs-templating/tcl/parse-procs.tcl	23 Aug 2013 09:42:27 -0000	1.48.2.1
+++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl	29 Sep 2013 18:35:20 -0000	1.48.2.2
@@ -294,7 +294,7 @@
     if {$up eq ""} {
       set result [lindex $parse_level end]
     } else {
-      set result [lindex $parse_level [expr {[llength $parse_level] - $up}]]
+      set result [lindex $parse_level [llength $parse_level]-$up]
     }
   }