Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.61.2.4 -r1.61.2.5
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	17 May 2020 17:04:11 -0000	1.61.2.4
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	18 May 2020 07:24:10 -0000	1.61.2.5
@@ -1662,7 +1662,7 @@
     #    return 1
     #}
 
-    if { [regexp {^(-)(\d+)$} $value _ sign rest] } {
+    if { [regexp {^(-)?(\d+)$} $value _ sign rest] } {
         # Trim the value for any leading zeros
         set value $sign[util::trim_leading_zeros $rest]
         # the string might be still too large, so check again...