diff --git a/lisp/c/sequence.c b/lisp/c/sequence.c index 7e4630161..20d5b66c6 100644 --- a/lisp/c/sequence.c +++ b/lisp/c/sequence.c @@ -142,7 +142,9 @@ pointer argv[]; a=a->c.ary.entity;} if (isvector(a)) { count=vecsize(a); - if (n==3) e=min(e,count); + if (s>count) error(E_STARTEND); + if (n==3) { + if (e>count) error(E_STARTEND); } else e=count; count=e-s; switch(elmtypeof(a)) {