diff --git a/library/io/string-streams.factor b/library/io/string-streams.factor
index b887ef4216..8e786718b3 100644
--- a/library/io/string-streams.factor
+++ b/library/io/string-streams.factor
@@ -24,7 +24,7 @@ M: sbuf stream-flush drop ;
 
 : map-last ( seq quot -- seq | quot: elt last? )
     swap dup length <reversed>
-    [ zero? rot [ call ] keep swap ] 2map nip ;
+    [ zero? rot [ call ] keep swap ] 2map nip ; inline
 
 M: plain-writer with-stream-table ( quot grid stream -- )
     -rot [ [ swap string-out ] map-with ] map-with
diff --git a/vm/string.c b/vm/string.c
index 36f1f18391..a42ac97b09 100644
--- a/vm/string.c
+++ b/vm/string.c
@@ -16,6 +16,7 @@ F_STRING* allot_string(F_FIXNUM capacity)
 	UTF16 string for C library calls. */
 	cput(SREF(string,capacity),(u16)'\0');
 	string->length = tag_fixnum(capacity);
+	string->hashcode = F;
 	return string;
 }