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.5 -r1.6
--- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	31 Aug 2002 02:01:41 -0000	1.5
+++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	13 Sep 2002 11:24:19 -0000	1.6
@@ -273,7 +273,7 @@
     used to compare two different elements in a list of parsed data for public or private procs
 } {
 
-    return [string compare -nocase [lindex [lindex [lindex element2 1] 0] 1] [lindex [lindex [lindex element1 1] 0] 1]]
+    return [string compare -nocase [lindex [lindex [lindex $element2 1] 0] 1] [lindex [lindex [lindex $element1 1] 0] 1]]
 
 }