Write to files >2gb

When I write to files that are >2 GB, LispWorks exits and Slime gives
the error message:

    Process inferior-lisp file size limit exceeded

Is there a way to simply enter the debugger instead of aborting the
image?

Although this occurs in real-life as part of status logging, the short
function below replicates the problem for me.  Note that 2**31 - 1 is
handled with no problem.

This is on Linux 2.6.12 on an ext3 file system.

Regards,
Chris Dean


(defun write-big-file (file-name)
  (with-open-file (out file-name
                       :direction :output
                       :if-exists :append
                       :if-does-not-exist :create)
    (dotimes (i (expt 2 31))
      (write-char #\x out))))