--- a/ObjectMemory.st	Wed Aug 01 13:23:59 2018 +0200
+++ b/ObjectMemory.st	Wed Aug 01 16:20:38 2018 +0200
@@ -1654,7 +1654,7 @@
                     chain := chains first.
                     chains removeFirst.
 
-                    lbl label:('found a reference chain.').
+                    lbl label:('Found a reference chain.').
                     progress beInvisible.
 
                     chain addFirst:Smalltalk.
@@ -1677,11 +1677,23 @@
                     listV list:list.
 
                     listV beVisible.
-                    listV doubleClickAction:[:idx | |o|
-                                                (o := chain at:idx) notNil ifTrue:[
-                                                    o inspect.
-                                                ]
-                                            ].
+                    listV 
+                        doubleClickAction:[:idx | 
+                            |o key idxOfColon mayBeClassName mayBeClassVarName cls|
+                            
+                            (o := chain at:idx) notNil ifTrue:[
+                                key := (list at:idx) string.
+                                (key includes:$:) ifTrue:[
+                                    idxOfColon := key lastIndexOf:$:.
+                                    mayBeClassName := key copyTo:idxOfColon-1.
+                                    mayBeClassVarName := key copyFrom:idxOfColon+1.
+                                    (cls := Smalltalk classNamed:mayBeClassName) notNil ifTrue:[
+                                        o := cls    
+                                    ].    
+                                ].    
+                                o inspect.
+                            ]
+                        ].
                     moreButton beVisible.
                     anyShown := anyShownInAnyLevel := true.
                     showMore := false.
@@ -1800,6 +1812,7 @@
     "Created: / 02-02-1998 / 23:58:04 / cg"
     "Modified: / 10-07-1998 / 17:22:06 / cg"
     "Modified: / 21-02-2017 / 09:49:40 / stefan"
+    "Modified: / 01-08-2018 / 13:31:17 / Claus Gittinger"
 !
 
 dumpObject:someObject