--- a/DebugView.st	Wed May 01 18:25:23 1996 +0200
+++ b/DebugView.st	Fri May 03 13:46:26 1996 +0200
@@ -1311,24 +1311,45 @@
 !
 
 browse
-    |w|
+    |w cls|
 
     w := selectedContext method who.
-    SystemBrowser openInClass:(w at:1) selector:(w at:2).
+    cls := w at:1.
+cls printNL.
+    cls browserClass openInClass:cls selector:(w at:2).
 
     "Created: 22.11.1995 / 21:27:01 / cg"
+    "Modified: 3.5.1996 / 13:31:35 / cg"
 !
 
 browseClass
-    SystemBrowser browseClass:(selectedContext method who at:1).
+    |w cls|
+
+    w := selectedContext method who.
+    cls := w at:1.
+    cls browserClass browseClass:cls
+
+    "Modified: 3.5.1996 / 12:37:59 / cg"
 !
 
 browseClassHierarchy
-    SystemBrowser browseClassHierarchy:(selectedContext method who at:1).
+    |w cls|
+
+    w := selectedContext method who.
+    cls := w at:1.
+    cls browserClass browseClassHierarchy:cls.
+
+    "Modified: 3.5.1996 / 12:38:17 / cg"
 !
 
 browseFullClassProtocol
-    SystemBrowser browseFullClassProtocol:(selectedContext method who at:1).
+    |w cls|
+
+    w := selectedContext method who.
+    cls := w at:1.
+    cls browserClass browseFullClassProtocol:cls.
+
+    "Modified: 3.5.1996 / 12:38:30 / cg"
 !
 
 copyWalkbackText
@@ -2512,5 +2533,5 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.77 1996-05-01 16:25:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.78 1996-05-03 11:45:57 cg Exp $'
 ! !