MCL CLOS method combination bug

[mahler@latcs1.lat.oz.au (Daniel Mahler)]

This transcript seems to show that MCL CLOS has a problem combining EQL specialised primary methods
with nonprimary methods specialised on class. Is this bug known? Is there a patch for it?

? (defgeneric f (x))
#<STANDARD-GENERIC-FUNCTION F #xC188F6>
? (defmethod f ((x (eql 1)))
    'hello)
#<STANDARD-METHOD F ((EQL 1))>
? (f 1)
HELLO
? (defmethod f :after (x)
    (print x))
#<STANDARD-METHOD F :AFTER (T)>
? (f 1)
> Error: No applicable primary methods for #<STANDARD-GENERIC-FUNCTION F #xC188F6>
>        Applicable methods: (#<STANDARD-METHOD F :AFTER (T)>)
> While executing: CCL::%METHOD-COMBINATION-ERROR
> Type Command-. to abort.
See the RestartsI menu item for further choices.
1 > 
Aborted
? (defmethod f (x)
    (declare (ignore x))
    (break))
#<STANDARD-METHOD F (T)>
? (f 1)
1 
HELLO
?