X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/0c4559280eea9f0268866198be50b6f0395b4251..4c3d168fcdd02d012f742a7b38ed52b9779c3f3c:/src/method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 86fd4cd..6508f57 100644
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -255,9 +255,8 @@ (defmethod slot-unbound (class
   (declare (ignore class))
   (let ((message (effective-method-message method)))
     (setf (slot-value method 'basic-argument-names)
-	  (subst *sod-master-ap* *sod-ap*
-		 (mapcar #'argument-name
-			 (sod-message-no-varargs-tail message))))))
+	  (mapcar #'argument-name
+		  (sod-message-no-varargs-tail message)))))
 
 (defmethod effective-method-function-name ((method effective-method))
   (let* ((class (effective-method-class method))