2 files changed, 8 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 4cb28c73..56cbf4ae 100644
--- a/lib.c
+++ b/lib.c
@@ -9131,6 +9131,8 @@ val length(val seq)
   case COBJ:
     if (seq->co.cls == hash_s)
       return hash_count(seq);
+    if (seq->co.cls == carray_s)
+      return length_carray(seq);
     if (structp(seq) && maybe_slot(seq, car_s))
       return length_proper_list(nullify(seq));
     /* fallthrough */
diff --git a/txr.1 b/txr.1
index bd5de7e3..122c60e3 100644
--- a/txr.1
+++ b/txr.1
@@ -24798,6 +24798,12 @@ is -11 and of
 The buffer length calculated by
 .code length-buf
 is returned.
+.coIP carray
+The number of elements in
+.meta object
+calculated by
+.code length-carray
+is returned.
 .RE
 
 .IP