--- a/WrappedMethod.st	Thu Feb 16 04:02:15 1995 +0100
+++ b/WrappedMethod.st	Thu Feb 16 17:25:52 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.5 1995-02-05 23:38:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.6 1995-02-16 16:25:52 claus Exp $
 '!
 
 !WrappedMethod class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.5 1995-02-05 23:38:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.6 1995-02-16 16:25:52 claus Exp $
 "
 !
 
@@ -68,7 +68,7 @@
 
     "a kludge: it must be in the literal array somewhere"
     literals do:[:aLiteral |
-	(aLiteral isKindOf:Method) ifTrue:[
+	aLiteral isMethod ifTrue:[
 	    ^ aLiteral
 	]
     ].