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