diff --git a/src/memory/consspaceobject.c b/src/memory/consspaceobject.c index 81836f8..8a8ed2a 100644 --- a/src/memory/consspaceobject.c +++ b/src/memory/consspaceobject.c @@ -306,11 +306,11 @@ struct cons_pointer make_string_like_thing( wint_t c, struct cons_pointer tail, struct cons_space_object *cell = &pointer2cell( pointer ); cell->payload.string.character = c; - cell->payload.string.cdr.page = tail.page; + cell->payload.string.cdr = tail; /* \todo There's a problem here. Sometimes the offsets on * strings are quite massively off. Fix is probably * cell->payload.string.cdr = tail */ - cell->payload.string.cdr.offset = tail.offset; + //cell->payload.string.cdr.offset = tail.offset; cell->payload.string.hash = calculate_hash( c, tail ); } else {