--- a/DebugView.st	Fri Nov 01 12:30:05 1996 +0100
+++ b/DebugView.st	Fri Nov 01 17:19:46 1996 +0100
@@ -1625,14 +1625,14 @@
 !
 
 browse
-    |mthd w sel cls|
+    |mthd who sel cls|
 
     mthd := selectedContext method.
     mthd notNil ifTrue:[
-        w := selectedContext method who.
-        w notNil ifTrue:[
-            cls := w at:1.
-            sel := w at:2.
+        who := selectedContext method who.
+        who notNil ifTrue:[
+            cls := who methodClass.
+            sel := who methodSelector.
         ]
     ].
     cls isNil ifTrue:[
@@ -1643,37 +1643,34 @@
     cls browserClass openInClass:cls selector:sel.
 
     "Created: 22.11.1995 / 21:27:01 / cg"
-    "Modified: 28.6.1996 / 17:33:50 / cg"
+    "Modified: 1.11.1996 / 16:22:13 / cg"
 !
 
 browseClass
-    |w cls|
-
-    w := selectedContext method who.
-    cls := w at:1.
+    |cls|
+
+    cls := selectedContext method containingClass.
     cls browserClass browseClass:cls
 
-    "Modified: 3.5.1996 / 12:37:59 / cg"
+    "Modified: 1.11.1996 / 16:34:19 / cg"
 !
 
 browseClassHierarchy
-    |w cls|
-
-    w := selectedContext method who.
-    cls := w at:1.
+    |cls|
+
+    cls := selectedContext method containingClass.
     cls browserClass browseClassHierarchy:cls.
 
-    "Modified: 3.5.1996 / 12:38:17 / cg"
+    "Modified: 1.11.1996 / 16:34:31 / cg"
 !
 
 browseFullClassProtocol
-    |w cls|
-
-    w := selectedContext method who.
-    cls := w at:1.
+    |cls|
+
+    cls := selectedContext method containingClass.
     cls browserClass browseFullClassProtocol:cls.
 
-    "Modified: 3.5.1996 / 12:38:30 / cg"
+    "Modified: 1.11.1996 / 16:34:41 / cg"
 !
 
 copyWalkbackText
@@ -2737,7 +2734,7 @@
     |con homeContext sel method code canAccept
      implementorClass lineNrInMethod rec m line
      sender selSender tryVars possibleBlocks errMsg 
-     mthd cls w|
+     mthd cls|
 
     contextArray notNil ifTrue:[
         lineNr <= contextArray size ifTrue:[
@@ -2991,12 +2988,9 @@
 
         mthd := selectedContext method.
         mthd notNil ifTrue:[
-            w := mthd who.
+            cls := mthd containingClass.
         ].
         m enable:#browseClass.
-        w notNil ifTrue:[
-            cls := w at:1
-        ].
         cls notNil ifTrue:[
             m enableAll:#(browse browseClass browseClassHierarchy browseFullClassProtocol).
         ] ifFalse:[
@@ -3004,11 +2998,11 @@
         ].
     ]
 
-    "Modified: 3.7.1996 / 10:09:00 / cg"
+    "Modified: 1.11.1996 / 16:35:59 / cg"
 ! !
 
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.115 1996-10-23 18:18:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.116 1996-11-01 16:19:46 cg Exp $'
 ! !