--- a/InspectorView.st	Wed Aug 03 11:21:07 2011 +0200
+++ b/InspectorView.st	Wed Aug 03 15:07:58 2011 +0200
@@ -1017,12 +1017,12 @@
     items := #().
     (sel isBlock or:[sel isContext]) ifTrue:[
         items := items , #(
-                       ('Browse Blocks Home'           #browseHome)
+                       ('Browse Block''s Home'           #browseHome)
               ).
     ].
     (object isMethod or:[sel isMethod]) ifTrue:[
         items := items , #(
-                       ('Browse Methods Class'         #browseMethodsClass)
+                       ('Browse Method''s Class'         #browseMethodsClass)
                  ).
     ].
     (selectionIndex notNil 
@@ -1033,6 +1033,8 @@
     ].
 
     ^ items
+
+    "Modified: / 03-08-2011 / 15:03:36 / cg"
 !
 
 optionalStreamSelectionItems
@@ -1091,19 +1093,22 @@
     |cls|
 
     cls := (self selection ? object) class.
-    (cls browserClass ? UserPreferences current systemBrowserClass) openInClass:cls selector:nil
-
-    "Created: / 14.12.1995 / 19:15:50 / cg"
-    "Modified: / 14.10.1998 / 15:32:10 / cg"
+    (cls browserClass ? UserPreferences current systemBrowserClass) 
+        openInClass:cls selector:nil
+
+    "Created: / 14-12-1995 / 19:15:50 / cg"
+    "Modified: / 03-08-2011 / 15:07:42 / cg"
 !
 
 browseClass
     |cls|
 
     cls := (self selection ? object) class.
-    cls browserClass browseClass:cls
-
-    "Modified: 3.5.1996 / 12:39:32 / cg"
+    cls browserClass 
+        openInClass:cls selector:nil
+        "/ browseClass:cls
+
+    "Modified: / 03-08-2011 / 15:05:58 / cg"
 !
 
 browseClassHierarchy
@@ -2626,5 +2631,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.235 2011-07-29 19:14:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.236 2011-08-03 13:07:58 cg Exp $'
 ! !