Index: openacs-4/packages/ams/tcl/ams-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v
diff -u -r1.48 -r1.49
--- openacs-4/packages/ams/tcl/ams-procs.tcl	25 Apr 2006 07:11:22 -0000	1.48
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	26 Apr 2006 06:24:55 -0000	1.49
@@ -490,7 +490,9 @@
 	    if { [exists_and_not_null section_heading] } {
 		lappend element [list section $section_heading]
 	    }
-	    lappend element_list $element
+	    if { [exists_and_not_null element]} {
+		lappend element_list $element
+	    }
 	}
     }