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 -N -r1.27 -r1.27.2.1
--- openacs-4/packages/xotcl-core/www/show-object.tcl	9 Sep 2018 13:11:39 -0000	1.27
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	1 Mar 2019 10:08:07 -0000	1.27.2.1
@@ -258,7 +258,7 @@
     append output "<dt><b>Created:</b>\n<dd>[lindex $doc_elements(creation-date) 0]\n"
   }
   if { [info exists doc_elements(author)] } {
-    append output "<dt><b>Author[ad_decode [llength $doc_elements(author)] 1 "" "s"]:</b>\n"
+    append output "<dt><b>Author[expr {[llength $doc_elements(author)] > 1 ? "s" : ""}]:</b>\n"
     foreach author $doc_elements(author) {
       append output "<dd>[::apidoc::format_author $author]\n"
     }