(assert (eq child (thread-error-thread e)))
(assert (eq 'this-is-new (cell-error-name e)))
(assert (equal (list :write :thread-dead)
(assert (eq child (thread-error-thread e)))
(assert (eq 'this-is-new (cell-error-name e)))
(assert (equal (list :write :thread-dead)