Indentation for HANDLER-CASE

Is there a way to make the indentation of HANDLER-CASE work correctly
in LispWorks' editor?  How do you guys cope with it?  Am I again
missing something obvious?

Thanks,
Edi.



Example from HyperSpec:

How it should be:

  (defun assess-condition (condition)
    (handler-case (signal condition)
      (warning () "Lots of smoke, but no fire.")
      ((or arithmetic-error control-error cell-error stream-error)
         (condition)
        (format nil "~S looks especially bad." condition))
      (serious-condition (condition)
        (format nil "~S looks serious." condition))
      (condition () "Hardly worth mentioning.")))

How LispWorks does it:

  (defun assess-condition (condition)
    (handler-case (signal condition)
      (warning () "Lots of smoke, but no fire.")
      ((or arithmetic-error control-error cell-error stream-error)
       (condition)
       (format nil "~S looks especially bad." condition))
      (serious-condition (condition)
                         (format nil "~S looks serious." condition))
      (condition () "Hardly worth mentioning.")))