Index: openacs-4/packages/xotcl-core/www/show-object.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.adp,v
diff -u -r1.9.2.2 -r1.9.2.3
--- openacs-4/packages/xotcl-core/www/show-object.adp	30 Dec 2015 18:09:14 -0000	1.9.2.2
+++ openacs-4/packages/xotcl-core/www/show-object.adp	31 Dec 2015 13:15:39 -0000	1.9.2.3
@@ -1,6 +1,7 @@
 <master>
 <property name="doc(title)">@title;literal@</property>
 <property name="context">@context;literal@</property>
+<property name="head">
 <style>
 pre.code {
         font-size: 80%;
@@ -25,6 +26,7 @@
         font-style: italic;
         color: green;
 }
+dd {margin-left: 2em;}
 </style>
 </property>
 
Index: openacs-4/packages/xotcl-core/www/show-object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v
diff -u -r1.22.2.5 -r1.22.2.6
--- openacs-4/packages/xotcl-core/www/show-object.tcl	30 Dec 2015 18:09:14 -0000	1.22.2.5
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	31 Dec 2015 13:15:39 -0000	1.22.2.6
@@ -153,28 +153,27 @@
   set pretty_parameter ""
   set line "[::xo::api object_link $scope $c] create ..."
   set parameters [lsort [DO xo::getObjectProperty $c parameter]]
-  if {$parameters ne ""} {
-    set length [expr {6 + [string length $c]}]
+  if {[llength $parameters] > 0} {
+    #
+    # Initial line length is length of class name + "create" + "..." +
+    # white space
+    #
+    set llength [expr {8 + [string length $c]}]
+    set pstart "&nbsp;\\<br>[string repeat {&nbsp;} 10]"
+    
     foreach p $parameters {
-      if {$length > 60} {
-        append line "&nbsp;\\<br>[string repeat {&nbsp;} 10]"
-        set length 10
-      }
       if {[llength $p]>1} {
         lassign $p p default
-        append line " \[-$p (default <span style='color: green; font-style: italic'>\"$default\"</span>)\]"
-        incr length [expr {[string length $p] + [string length $default]* 2 + 4}]
+        append line $pstart " \[ -$p (default <span style='color: green; font-style: italic'>\"$default\"</span>) \]"
       } else {
-        append line " \[-$p <i>$p</i>\]"
-        incr length [expr {[string length $p] * 2 + 4}]
+        append line $pstart " \[ -$p <i>$p</i> \]"
       }
-
       #set param($p) 1
     }
-    #append result "<h4>Parameter for instances:</h4> <blockquote>[join $pretty {, }]</blockquote>\n" 
   }
+  append line "<p>\n"
   
-  return "<tt>$line</tt>"
+  return "<pre>$line</pre>"
 }
 
 #
@@ -241,10 +240,11 @@
   append output [lindex $doc_elements(main) 0]
   append output "<dl>\n"
   if { [info exists doc_elements(param)] && [llength $doc_elements(param)] > 0} {
-    append output "<dt><b>Documented Parameters:</b>\n"
+    append output "<dt><b>Documented Parameters:</b></dt><dd><dl>\n"
     foreach par $doc_elements(param) {
-      append output "<dd><em>-[lindex $par 0]</em> [lrange $par 1 end]\n"
+      append output "<dt><em>-[lindex $par 0]</em></dt><dd>[lrange $par 1 end]</dd>\n"
     }
+    append output "</dl></dd>"
   }
   if { [info exists doc_elements(see)] } {
     append output "<dt><b>See Also:</b>\n"