Index: openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl,v
diff -u -r1.30.2.1 -r1.30.2.2
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	29 Sep 2013 14:55:32 -0000	1.30.2.1
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	29 Sep 2013 19:23:18 -0000	1.30.2.2
@@ -39,7 +39,7 @@
     }
 
     set out {}
-    foreach element [lrange $context 0 [expr {[llength $context] - 2}]] { 
+    foreach element [lrange $context 0 [llength $context]-2] { 
         append out "<a href=\"[lindex $element 0]\">[lindex $element 1]</a> $separator "
     }
     append out [lindex $context end]