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 -N -r1.52 -r1.53
--- openacs-4/packages/ams/tcl/ams-procs.tcl	23 Jan 2007 14:43:50 -0000	1.52
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	12 Jul 2007 08:24:08 -0000	1.53
@@ -527,10 +527,14 @@
 			     -html_options $html_options \
 			     -optional_p [string is false $required_p] -attribute_id $attribute_id]
 
-	    if { [exists_and_not_null section_heading] } {
-		lappend element [list section $section_heading]
-	    }
 	    if { [exists_and_not_null element]} {
+		if { [exists_and_not_null section_heading] } {
+		    if { $section_heading eq "no_section" } {
+			lappend element_list {-section ""}
+		    } else {
+			lappend element_list [list "-section" "sec$attribute_id" [list legendtext $section_heading]]
+		    }
+		}
 		lappend element_list $element
 	    }
 	}