diff --git a/contrib/parser-combinators/parser-combinators.html b/contrib/parser-combinators/parser-combinators.html
index fe63b11631..83429080e8 100644
--- a/contrib/parser-combinators/parser-combinators.html
+++ b/contrib/parser-combinators/parser-combinators.html
@@ -141,7 +141,7 @@ character code '53'.</p>
 <pre class="code">
   (1) : digit-list>number ( list -- number )
          #! Converts a list of digits to a number
-         [ >digit ] map cat dup string-length 0 = [ 
+         [ >digit ] map >string dup empty? [ 
            drop 0 
          ] [
 	   str>number