diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index 42c20724589823b71b6705ffb96278a33660b30b..3a616919f3717bedba779adb098006ac67d7879c 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.68 2003/06/05 08:33:45 gerd Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.69 2003/09/06 19:38:17 gerd Exp $")
 
 (in-package :pcl)
 
@@ -724,7 +724,8 @@ work during bootstrapping.
 (defmacro simple-lexical-method-functions
     ((lambda-list method-args next-methods &rest lmf-options) 
      &body body)
-  `(locally
+  `(let ((,method-args ,method-args)
+	 (,next-methods ,next-methods))
      (declare (ignorable ,method-args ,next-methods))
      (bind-simple-lexical-method-macros (,method-args ,next-methods)
        (bind-lexical-method-functions (,@lmf-options)