Index: openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl,v
diff -u -r1.2 -r1.2.10.1
--- openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl	10 Jan 2007 21:22:11 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl	29 Sep 2013 19:23:18 -0000	1.2.10.1
@@ -369,7 +369,7 @@
 		if { $tag ne [lindex $balanced_tag_stack end] } {
 		    return -code error "Expected end tag to be </[lindex $balanced_tag_stack end]>, not </$tag>"
 		}
-		set balanced_tag_stack [lrange $balanced_tag_stack 0 [expr { [llength $balanced_tag_stack] - 2 }]]
+		set balanced_tag_stack [lrange $balanced_tag_stack 0 [llength $balanced_tag_stack]-2]
 		doc_adp_append_code "\}"
 	    } else {
 		doc_adp_append_code "set __doc_attributes \[ns_set create\]"