Index: openacs-4/packages/acs-subsite/www/shared/parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/parameters.tcl,v
diff -u -r1.25.2.5 -r1.25.2.6
--- openacs-4/packages/acs-subsite/www/shared/parameters.tcl	5 Feb 2023 19:27:02 -0000	1.25.2.5
+++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl	14 Feb 2023 11:19:03 -0000	1.25.2.6
@@ -132,7 +132,9 @@
     #
     # "Main" is always the first section
     #
-    set section_list "<a href='#main'>[ns_quotehtml $sections(main)]</a>"
+    if { [info exists sections(main)] } {
+        set section_list "<a href='#main'>[ns_quotehtml $sections(main)]</a>"
+    }
     foreach section_name [lsort [array names sections]] {
         if {$section_name ne "main"} {
             lappend section_list "<a href='#$section_name'>[ns_quotehtml $sections($section_name)]</a>"