Index: openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl,v
diff -u -r1.10 -r1.10.10.1
--- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	10 Jan 2007 21:22:12 -0000	1.10
+++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	3 Oct 2013 09:23:37 -0000	1.10.10.1
@@ -57,7 +57,7 @@
 	  set split_name $see_name
 	  doc::util::text_divider split_name ::
 	  set name_length [llength $split_name]
-	  set see_namespace [join [lrange $split_name 0 [expr {$name_length - 2}]] ""]
+	  set see_namespace [join [lrange $split_name 0 $name_length-2] ""]
 	  set url "[doc::util::dbl_colon_fix $see_namespace].html#[set see_name]"
 	}
     }
@@ -92,7 +92,7 @@
    
   while { [regexp -indices $marker $text marker_idx] } {
     lappend indices_list [expr {[lindex $marker_idx 0] + $last_index}]
-    set text [string range $text [expr {[lindex $marker_idx 1] + 1}]  end]
+    set text [string range $text [lindex $marker_idx 1]+1 end]
     set last_index [expr {[lindex $marker_idx 1] + $last_index + 1}]
   }