Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	17 May 2004 15:14:42 -0000	1.16
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	7 Feb 2005 10:29:14 -0000	1.17
@@ -494,9 +494,9 @@
 	}
 	
 	if { [llength $doc_elements(switches)] > 0 } {
-		append out "<dt><b>Switches:</b></dt><dd>\n"
+		append out "<dt><b>Switches:</b></dt><dd><dl>\n"
 		foreach switch $doc_elements(switches) {
-			append out "<b>-$switch</b>"
+			append out "<dt><b>-$switch</b>"
 			if { [lsearch $flags($switch) "boolean"] >= 0 } {
 				append out " (boolean)"
 			} 
@@ -511,13 +511,12 @@
 			} else {
 				append out " (optional)"
 			}
-			
+			append out "</dt>"
 			if { [info exists params($switch)] } {
-				append out " - $params($switch)"
+				append out "<dd>$params($switch)</dd>"
 			}
-			append out "<br>\n"
 		}
-		append out "</dd>\n"
+		append out "</dl></dd>\n"
 	}
 	
 	if { [llength $doc_elements(positionals)] > 0 } {