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.27.2.3 -r1.27.2.4
--- openacs-4/packages/xotcl-core/www/show-object.tcl	9 Aug 2019 19:45:14 -0000	1.27.2.3
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	16 Oct 2019 10:24:43 -0000	1.27.2.4
@@ -244,7 +244,11 @@
   if { [info exists doc_elements(param)] && [llength $doc_elements(param)] > 0} {
     append output "<dt><b>Documented Parameters:</b></dt><dd><dl>\n"
     foreach par $doc_elements(param) {
-      append output "<dt><em>-[lindex $par 0]</em></dt><dd>[lrange $par 1 end]</dd>\n"
+      if {[regexp {^\s*(\S+)\s*(.*)$} $par . param desc]} {
+        append output "<dt><em>$param</em></dt><dd>$desc</dd>\n"
+      } else {
+        ad_log warning "show_object: ignoring invalid parameter description <$par>"
+      }
     }
     append output "</dl></dd>"
   }