;; define lists of lengths 32761, 32762
(define ok
  (do ((i 0 (add1 i))
       (a (list) (cons 1 a)))
      ((= i 32761) a)))

(define bad
  (cons 1 ok))

(apply values bad)        ; hangs csi
(apply values ok)         ; works
(apply + bad)             ; works
(void (apply values bad)) ; works