Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.60.2.16 -r1.60.2.17
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	21 Apr 2017 16:50:29 -0000	1.60.2.16
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	22 Apr 2017 18:15:50 -0000	1.60.2.17
@@ -1537,7 +1537,7 @@
         if {!$element_properties(hide_p)} {
             if {$element_properties(from_clause_eval) ne ""} {
                 set evaluated_from_clause [uplevel $list_properties(ulevel) $element_properties($property)]
-                if {[lseach $list_properties(from_clauses) $evaluated_from_clause] < 0} {
+                if {[lsearch $list_properties(from_clauses) $evaluated_from_clause] < 0} {
                     lappend list_properties(from_clauses) $evaluated_from_clause
                 }
             } elseif {$element_properties(from_clause) ne "" \