-;; ROOM used to bail out when there were object with bignum bytes in
-;; them. Test by Sidney Markowitz.
-(defparameter *large-array*
- (make-array (- (truncate most-positive-fixnum 4) 2)))
-(room)
+;;; Failure to save a core is an error
+(with-test (:name :save-lisp-and-die-error)
+ (assert (eq :oops
+ (handler-case (save-lisp-and-die "/")
+ (error () :oops)))))