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 -N -r1.86 -r1.87
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	14 Jun 2018 16:27:48 -0000	1.86
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	15 Jun 2018 22:10:30 -0000	1.87
@@ -845,7 +845,7 @@
 ad_proc -public template::list::page_where_clause {
     -name:required
     -and:boolean
-    {-key}
+    {-key ""}
 } {
     @param  and     Set this flag if you want the result to start with an 'and' if the list of where clauses returned is non-empty.
 
@@ -865,7 +865,7 @@
         append result "and "
     }
 
-    if { (![info exists key] || $key eq "") } {
+    if { $key eq "" } {
         set key $list_properties(key)
     }