Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.40.2.10 -r1.40.2.11
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	15 Oct 2022 17:07:45 -0000	1.40.2.10
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	25 Jul 2024 13:08:52 -0000	1.40.2.11
@@ -500,6 +500,7 @@
     for { set i 0 } { $i < [llength $primary_keys] - 1 } { incr i } {
         lappend pk_formatted "[lindex $primary_keys $i] = [lindex $primary_keys $i+1]"
     }
+    set where_clause ""
     if {[llength $pk_formatted] > 0} {
         set where_clause [join [string tolower $pk_formatted] "\n   AND "]
         set where_clause " WHERE $where_clause"