(use srfi-1)

;; Apply a ridiculously long list
(apply + (make-list 100000 1)) ;; Works
(apply string-append (make-list 100000 "1")) ;; Doesn't