--- a/Method.st	Thu Mar 09 11:52:57 1995 +0100
+++ b/Method.st	Sat Mar 18 06:06:59 1995 +0100
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Method.st,v 1.31 1995-03-09 10:52:57 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Method.st,v 1.32 1995-03-18 05:04:58 claus Exp $
 '!
 
 !Method class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Method.st,v 1.31 1995-03-09 10:52:57 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Method.st,v 1.32 1995-03-18 05:04:58 claus Exp $
 "
 !
 
@@ -589,8 +589,10 @@
     "
     LastWhoClass notNil ifTrue:[
 	cls := Smalltalk at:LastWhoClass.
-	sel := cls selectorForMethod:self.
-	sel notNil ifTrue:[^ Array with:cls with:sel].
+	cls notNil ifTrue:[
+	    sel := cls selectorForMethod:self.
+	    sel notNil ifTrue:[^ Array with:cls with:sel].
+	]
     ].
 
     "