(case-fold-down str)
Returns str in lowercase.
Norman Walsh, <ndw@nwalsh.com>
(define (case-fold-down str) ;; Shift a string to lowercase (if (string? str) (apply string (case-fold-down-charlist (string->list str))) str))