--- a/DictionaryInspectorView.st	Thu Oct 01 09:15:36 2015 +0200
+++ b/DictionaryInspectorView.st	Thu Oct 01 13:03:55 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -631,6 +633,14 @@
     "Modified: / 25-07-2014 / 09:44:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+indexedValueAtKey:key
+    object isWeakCollection ifTrue:[
+        "keys may vanish"
+        ^ object at:key ifAbsent:[].
+    ].
+    ^ object at:key
+!
+
 instVarIndexForLine:lineNr
     "helper - return the index for a named instVar;
      nil, if self or a keyed instvar is selected."
@@ -749,10 +759,10 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.87 2015-06-08 19:28:33 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.87 2015-06-08 19:28:33 cg Exp $'
+    ^ '$Header$'
 ! !