kernel: fix string copying logic

Author: rbehrends

src/stringobj.c

@@ -1243,7 +1243,8 @@ Obj CopyToStringRep(
     copy = NEW_STRING(lenString);
 
     if ( IS_STRING_REP(string) ) {
-        memcpy(ADDR_OBJ(copy), CONST_ADDR_OBJ(string), SIZE_OBJ(string));
+        memcpy(CHARS_STRING(copy), CONST_CHARS_STRING(string),
+            GET_LEN_STRING(string));
         /* XXX no error checks? */
     } else {
         /* copy the string to the string representation                     */
@@ -1267,7 +1268,7 @@ Obj CopyToStringRep(
 */
 Obj ImmutableString(Obj string)
 {
-    if (!IS_STRING_REP(string) || !IS_MUTABLE_OBJ(string)) {
+    if (!IS_STRING_REP(string) || IS_MUTABLE_OBJ(string)) {
         string = CopyToStringRep(string);
         MakeImmutableString(string);
     }