--- a/ContextInspectorView.st	Mon Nov 28 22:11:47 1994 +0100
+++ b/ContextInspectorView.st	Mon Feb 06 02:01:18 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.7 1994-11-28 21:11:46 claus Exp $
+$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.8 1995-02-06 00:59:36 claus Exp $
 '!
 
 !ContextInspectorView class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.7 1994-11-28 21:11:46 claus Exp $
+$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.8 1995-02-06 00:59:36 claus Exp $
 "
 !
 
@@ -83,8 +83,7 @@
     "set the context to be inspected"
 
     |aList homeContext method names rec sel implementorClass 
-     argNames varNames tmpNames|
-
+     argNames varNames tmpNames m|
 
     inspectedObject := nil.
     inspectedContext := con.
@@ -114,13 +113,20 @@
 	implementorClass := homeContext methodClass.
 	implementorClass notNil ifTrue:[
 	    method := implementorClass compiledMethodAt:sel.
-	    method isWrapped ifTrue:[
-		method := method originalMethod.
+	    method notNil ifTrue:[
+		method isWrapped ifTrue:[
+		    m := method originalMethod.
+		    m notNil ifTrue:[
+			method := m.
+		    ]
+		].
 	    ].
-	    method source notNil ifTrue:[
-		names := method methodArgAndVarNames.
-		names isNil ifTrue:[
-		    names := #()
+	    method notNil ifTrue:[
+		method source notNil ifTrue:[
+		    names := method methodArgAndVarNames.
+		    names isNil ifTrue:[
+			names := #()
+		    ]
 		]
 	    ]
 	].