(use srfi-13)

(define (string-replace* s orig replacement)
  (let ((idx (string-contains s orig)))
    (if idx
        (string-replace*
         (string-replace s replacement idx (+ idx (string-length orig)))
         orig
         replacement)
        s)))