--- a/SettingsDialog.st	Fri Aug 23 12:01:50 2013 +0100
+++ b/SettingsDialog.st	Fri Aug 23 12:10:52 2013 +0100
@@ -1615,24 +1615,32 @@
 
 !SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'printing & storing'!
 
-displayString
+displayOn:aGCOrStream
+
+    "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
+    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+    (aGCOrStream isStream) ifFalse:[
+        ^ super displayOn:aGCOrStream
+    ].
 
-    ^ super printString, ' [', (label isText ifTrue:[label string] ifFalse:[label]) ,']'
+    super printOn:aGCOrStream.
+    aGCOrStream nextPutAll:' ['.
+    label printOn:aGCOrStream.
+    aGCOrStream nextPut:$].
 !
 
+
+
 printOn:aStream
     aStream 
         nextPutAll:self class nameWithoutPrefix;
-        nextPutAll:' ';
-        nextPutAll:self label ? '???'.
+        space.
+    self label printOn:aStream.
 
     "Created: / 24-08-2010 / 18:36:17 / sr"
 !
 
-printString
-
-    ^ super printString, ' [', (label isText ifTrue:[label string] ifFalse:[label]) ,']'
-! !
+ !
 
 !SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'queries'!
 
@@ -1792,11 +1800,11 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.107 2013-07-31 09:18:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.108 2013-08-19 16:02:12 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.107 2013-07-31 09:18:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.108 2013-08-19 16:02:12 stefan Exp $'
 !
 
 version_HG