eval-when compile situation problem

Using recent (< two weeks) CVS, CLISP fails to
compile-file a file containing the following form:

(eval-when (:compile-toplevel :execute)
(defvar *crap* #.(lambda (arg) (* 10 arg))))

The error is:

Compiling file
/home/dave/packages/sbcl-sbcl-build/crap.lisp ...
*** - PRINT: Despite of *PRINT-READABLY*, #<CLOSURE
:LAMBDA (ARG) (* 10 ARG)> cannot be printed readably.
1. Break [2]>

Since there is no :load-toplevel situation, there
should be no reason for the file-compiler to dump the
compiled closure in the compilation output.

CMUCL and LispWorks for Linux both compile this file
successfully.

-Dave