Ticket #366: remove-invalid-chars-from-beginning-of-id.patch

html.scm

@@ -34 +34 @@
       ((string? r)
        (cons (string-substitute* (string-downcase r) 
                                  '(("[^A-Za-z0-9_ \t-]" . "")
+                                   ("^[^A-Za-z]+" . "")
                                    ("[ \t]+" . "-"))) s))
       ((not (pair? r)) s)
       (else (get-strings (cdr r) (get-strings (car r) s)))))))