diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 83c8fb41a6..6da68c197f 100755
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -22,6 +22,10 @@ GENERIC: byte-length ( obj -- n ) flushable
 
 M: object byte-length [ length ] [ element-size ] bi * ; inline
 
+M: byte-array byte-length length ; inline
+
+M: byte-vector byte-length length ; inline
+
 GENERIC: >c-ptr ( obj -- c-ptr ) flushable
 
 M: c-ptr >c-ptr ; inline