From d5339c99ec97566150b654b14df99f746ed59f89 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Jun 1997 20:56:18 +0000
Subject: [PATCH] Fix bug introduced by last change.

---
 v7/src/sos/method.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/sos/method.scm b/v7/src/sos/method.scm
index b3b5c7309..f0c27217a 100644
--- a/v7/src/sos/method.scm
+++ b/v7/src/sos/method.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: method.scm,v 1.9 1997/06/25 06:18:30 cph Exp $
+;;; $Id: method.scm,v 1.10 1997/06/27 20:56:18 cph Exp $
 ;;;
 ;;; Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
@@ -473,10 +473,10 @@
   (let ((get-specializers (%record-accessor-generator 'SPECIALIZERS))
 	(get-procedure (%record-accessor-generator 'PROCEDURE)))
     (list (list method-specializers
-		(list <method> <chained-method> <computed-method>)
+		(list <concrete-method> <chained-method> <computed-method>)
 		get-specializers)
 	  (list method-procedure
-		(list <method> <chained-method> <computed-method>)
+		(list <concrete-method> <chained-method> <computed-method>)
 		get-procedure)
 	  (list computed-emp-key
 		(list <computed-emp>)
-- 
2.25.1