--- a/ContextInspectorView.st	Mon Aug 07 13:09:27 2006 +0200
+++ b/ContextInspectorView.st	Mon Aug 07 13:09:57 2006 +0200
@@ -61,14 +61,14 @@
      m argsOnly blockNode 
      numVarsInSource numVarsInContext isDoIt
      numArgs numVars n tempNames realTempNames 
-     oldSelection oldSelectedName hCon|
+     oldSelection oldSelectedName hCon listSelection|
 
     (aContext == inspectedContext) ifTrue:[
         "/ care for contexts which change size
         "/ (after the locals & stack-setup)
         contextSize == inspectedContext size ifTrue:[
-            listView selection notNil ifTrue:[
-                self showSelection:(listView selection).
+            (listSelection := listView selection) notNil ifTrue:[
+                self showSelection:listSelection.
             ].
             ^ self
         ]
@@ -307,7 +307,7 @@
         ]
     ].
 
-    "Modified: / 30.7.1998 / 12:51:44 / cg"
+    "Modified: / 03-08-2006 / 14:23:18 / cg"
 !
 
 namesOfBlockContext:aContext
@@ -390,17 +390,21 @@
               ).
 
     sel := self selection.
-
-    (sel isBlock or:[sel isContext]) ifTrue:[
-        items := items , #(
-                       ('Browse Blocks Home'           #browseHome)
-              ).
+    Error 
+        handle:[:ex| ]
+        do:[
+        (sel isBlock or:[sel isContext]) ifTrue:[
+            items := items , #(
+                           ('Browse Blocks Home'           #browseHome)
+                  ).
+        ].
+        (sel isKindOf:Filename) ifTrue:[
+            items := items , #(
+                       ('Open Filebrowser'  #openFileBrowser)
+                      ).
+        ].
     ].
-    (sel isKindOf:Filename) ifTrue:[
-        items := items , #(
-                   ('Open Filebrowser'  #openFileBrowser)
-                  ).
-    ].
+
     items := items , #(
                ('-')
               ).
@@ -442,7 +446,7 @@
     ].
     ^ m
 
-    "Modified: / 16.11.2001 / 13:02:35 / cg"
+    "Modified: / 02-08-2006 / 22:27:14 / cg"
 ! !
 
 !ContextInspectorView methodsFor:'private'!
@@ -643,5 +647,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.62 2006-01-24 16:27:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.63 2006-08-07 11:09:57 cg Exp $'
 ! !