--- lib/Text/EtText/EtText2HTML.pm.old	Wed Sep 13 12:09:58 2000
+++ lib/Text/EtText/EtText2HTML.pm	Wed Sep 13 12:10:20 2000
@@ -444,10 +444,12 @@
     $itemtag = 'li';
     $line = "<li>".$line;
   }
-  elsif ($line =~ s/^\d+\.\s+//) {
+  elsif ($line =~ s/^(\d+)\.\s+//) {
     $listblock = 'ol';
     $itemtag = 'li';
-    $line = "<li>".$line;
+	# This should only insert a value if it isn't what it would have 
+	# been already
+    $line = "<li value=\"$1\">".$line;
   }
   elsif ($line =~ s/^(.+?):\t\s*//) {		# definition lists.
     $listblock = 'dl';