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.23 -r1.24
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	29 Aug 2007 13:53:40 -0000	1.23
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	22 Mar 2008 18:31:32 -0000	1.24
@@ -1872,7 +1872,7 @@
     }
     # trim leading zeros, so as not to confuse Tcl
     set value [string trimleft $value "0"]
-    if { [empty_string_p $value] } {
+    if { $value eq "" } {
 			# but not all of the zeros
 			set value "0"
     }