bug in loop macro

[tal@acs.nntp-read.bu.edu (Doron Tal)]

The following sexp (one of the examples in Steele's book) puts MCL in
the debugger:

(loop for i being each present-symbol of "CL-USER" do (print i))

Does anyone know of a way to fix the problem?  

Thanks,
-Doron