diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index 633fc809f4ded2f7b73a5378859a42ce290ea015..e72d3ea5431724d7e014f7de7975190bfae777fa 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.153 2003/05/14 12:03:15 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.154 2003/05/21 16:34:34 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2048,7 +2048,7 @@
                   (let ((decl (find 'pcl::method-name decls :key 'caadr)))
                     (and decl
                          (eq 'declare (first decl))
-                         (cons :method (cadadr decl))))))
+                         (cons 'pcl::method (cadadr decl))))))
 	res))))
 
 (declaim (end-block))