diff --git a/basis/images/tiff/tiff.factor b/basis/images/tiff/tiff.factor
index d0a84dcf0a..e0de68b368 100755
--- a/basis/images/tiff/tiff.factor
+++ b/basis/images/tiff/tiff.factor
@@ -443,7 +443,7 @@ ERROR: unhandled-compression compression ;
     '[
         _ group
         [ _ group unclip [ v+ ] accumulate swap suffix concat ] map
-        concat >byte-array
+        B{ } concat-as
     ] change-bitmap ;
 
 : strips-predictor ( ifd -- ifd )
diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 98b9a2ce23..6e41f083b7 100644
--- a/basis/io/sockets/sockets.factor
+++ b/basis/io/sockets/sockets.factor
@@ -117,7 +117,7 @@ M: invalid-inet6 summary drop "Invalid IPv6 address" ;
     <byte-array> glue ;
 
 : inet6-bytes ( seq -- bytes )
-    [ 2 >be ] { } map-as concat >byte-array ;
+    [ 2 >be ] { } map-as B{ } concat-as ;
 
 PRIVATE>