FEAT: improved estimate of length of c-string in string! to c-string! function