`Into (Vector :a) (List :a)` triggers stack overflows at large vector sizes

[Izaakwltn]

(coalton-toplevel

  ;; stack overflows
  (define (numvec->numlist)
    (let v = (vec:new))
    (iter:for-each! (fn (x)
                      (vec:push! x v)
                      Unit)
                    (iter:up-to 10000))
    (The (List Integer) (into v)))

  ;; potential alternative, does not overflow
  (define (numvec->numlist2)
    (let v = (vec:new))
    (iter:for-each! (fn (x)
                      (vec:push! x v)
                      Unit)
                    (iter:up-to 10000))
    (The (List Integer) (iter:collect! (iter:into-iter v)))))