Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v
diff -u -r1.32.6.6 -r1.32.6.7
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl	6 Jun 2007 18:35:20 -0000	1.32.6.6
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl	7 Jun 2007 10:15:51 -0000	1.32.6.7
@@ -418,6 +418,9 @@
 	# fieldset attributes
 	set properties(sec_fieldset) ""
 	array set fs_attributes $fieldset
+    if {![info exists fs_attributes(class)]} {
+        append properties(sec_fieldset) " class=\"form-fieldset\""
+    }
 	foreach name [array names fs_attributes] {
 		if { [string equal $fs_attributes($name) {}] } {
 			append properties(sec_fieldset) " $name"
@@ -575,15 +578,21 @@
   if { [info exists properties(fieldset)] } {
       # Fieldset
       append output " <fieldset"
-      set fieldset_list $properties(fieldset)
-
-      foreach {fa_name fa_value} [lindex $fieldset_list 0] {
-	  append output " $fa_name=\"$fa_value\""
+      array set fs_attributes [lindex $properties(fieldset) 0]
+      if {![info exists fs_attributes(class)]} {
+          append output " class=\"form-fieldset\""
       }
+      foreach name [array names fs_attributes] {
+          if { [string equal $fs_attributes($name) {}] } {
+              append output " $name"
+          } else {
+              append output " $name=\"$fs_attributes($name)\""
+          }
+      }
       append output ">"
 
       # Legend
-      set fieldset_legend [lindex $fieldset_list 1]
+      set fieldset_legend [lindex $properties(fieldset) 1]
 	  append output "<legend>$fieldset_legend</legend>"
   }