--- a/DictionaryInspectorView.st	Mon Nov 28 22:11:47 1994 +0100
+++ b/DictionaryInspectorView.st	Mon Feb 06 02:01:18 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.9 1994-11-28 21:11:12 claus Exp $
+$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.10 1995-02-06 00:59:44 claus Exp $
 '!
 
 !DictionaryInspectorView class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.9 1994-11-28 21:11:12 claus Exp $
+$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.10 1995-02-06 00:59:44 claus Exp $
 "
 !
 
@@ -148,11 +148,14 @@
 
     |aList|
 
-    aList := OrderedCollection new.
-    keys := inspectedObject keys asSortedCollection:[:a :b | a displayString < b displayString].
-    keys do:[:aKey |
-	aList add:(aKey displayString)
-    ].
+    keys := inspectedObject keys asSortedCollection:[:a :b | a printString < b printString].
+    aList := keys collect:[:k | k isSymbol ifTrue:[
+						k printString
+					       ] ifFalse:[
+						k displayString
+					       ]
+					 ].
+    aList := keys asOrderedCollection.
     aList addFirst:'self'.
     ^ aList
 !