diff --git a/core/byte-vectors/byte-vectors.factor b/core/byte-vectors/byte-vectors.factor
index 4f6ade8580..e4bc48f691 100644
--- a/core/byte-vectors/byte-vectors.factor
+++ b/core/byte-vectors/byte-vectors.factor
@@ -12,7 +12,7 @@ TUPLE: byte-vector
     (byte-array) 0 byte-vector boa ; inline
 
 : >byte-vector ( seq -- byte-vector )
-    T{ byte-vector f B{ } 0 } clone-like ;
+    >byte-array dup length byte-vector boa ;
 
 M: byte-vector like
     drop dup byte-vector? [