(scm_string_copy): Use scm_c_substring to get a copy-on-write string.