X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/11e41ddf86b4ee793f44fc0e39cb4c1869335b14..ca0c10c49568d1d340296ae9e613f32a6a31bfc9:/src/method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index b9543fd..6f6caad 100644
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -542,7 +542,7 @@ (defclass standard-effective-method (simple-effective-method) ()
 (defmethod primary-method-class ((message standard-message))
   'delegating-direct-method)
 
-(defmethod message-effective-method-class ((message standard-message))
+(defmethod sod-message-effective-method-class ((message standard-message))
   'standard-effective-method)
 
 (defmethod simple-method-body