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.72.2.1 -r1.72.2.2
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	26 Feb 2019 16:48:13 -0000	1.72.2.1
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	1 Mar 2019 13:58:40 -0000	1.72.2.2
@@ -275,7 +275,7 @@
             append out "<dt><b>Created:</b>\n<dd>[lindex $doc_elements(creation-date) 0]\n"
         }
         if { [info exists doc_elements(author)] } {
-            append out "<dt><b>Author[ad_decode [llength $doc_elements(author)] 1 "" "s"]:</b>\n"
+            append out "<dt><b>Author[expr {[llength $doc_elements(author)] > 1 ? "s" : ""}]:</b>\n"
             foreach author $doc_elements(author) {
                 append out "<dd>[::apidoc::format_author $author]\n"
             }
@@ -1312,7 +1312,7 @@
         if { [llength $authors] == 0 } {
             return ""
         }
-        append out "<dt><b>Author[ad_decode [llength $authors] 1 "" "s"]:</b>\n"
+        append out "<dt><b>Author[expr {[llength $authors] > 1 ? "s" : ""}]:</b>\n"
         foreach author $authors {
             append out "<dd>[format_author $author]</dd>\n"
         }