--- a/DictionaryInspectorView.st	Tue May 07 12:53:53 1996 +0200
+++ b/DictionaryInspectorView.st	Wed May 08 16:47:35 1996 +0200
@@ -171,7 +171,7 @@
 
     inspectedObject isNil ifTrue:[^ #()].
 
-    keys := inspectedObject keys asSortedCollection:[:a :b | a printString < b printString].
+    keys := inspectedObject keys asSortedCollection:[:a :b | a displayString < b displayString].
     aList := keys collect:[:k | k isSymbol ifTrue:[
                                                 k printString
                                                ] ifFalse:[
@@ -183,6 +183,7 @@
     ^ aList
 
     "Modified: 9.2.1996 / 21:16:07 / cg"
+    "Modified: 8.5.1996 / 14:16:35 / stefan"
 !
 
 release 
@@ -226,5 +227,5 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.22 1996-04-25 16:32:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.23 1996-05-08 14:47:15 stefan Exp $'
 ! !