1 files changed, 2 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 */