X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/1dc0d275c03f63aa59f5674b8a1b9f4dfd6ccf80..25760fe1230ce92a676207997419755cf03de420:/mdw-mop.lisp

diff --git a/mdw-mop.lisp b/mdw-mop.lisp
index e8946e8..dee8ca4 100644
--- a/mdw-mop.lisp
+++ b/mdw-mop.lisp
@@ -172,7 +172,7 @@
      (class filtered-slot-class-mixin)
      (object standard-object)
      (slot filtered-effective-slot-definition))
-  (call-next-method (funcall (slot-definition-filter slot) object value)
+  (call-next-method (funcall (slot-definition-filter slot) value)
 		    class object slot))
 
 ;;;--------------------------------------------------------------------------