Value ret;
ret = NewString (strlen (str));
strcpy (StringChars (&ret->string), str);
memcpy(StringChars(&ret->string), str, ret->string.length);
RETURN (ret);
}
-