--- a/SelectionInList.st	Wed Feb 22 16:38:46 2017 +0100
+++ b/SelectionInList.st	Wed Feb 22 19:06:19 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -399,14 +397,14 @@
 
 displayOn:aGCOrStream
     "Compatibility
-     append a printed desription on some stream (Dolphin,  Squeak)
+      append a printed desription on some stream (Dolphin,  Squeak)
      OR:
-     display the receiver in a graphicsContext at 0@0 (ST80).
+      display the receiver in a graphicsContext at 0@0 (ST80).
      This method allows for any object to be displayed in some view
      (although the fallBack is to display its printString ...)"
 
     "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
-    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+    "/ old ST80 means: draw-yourself on a GC.
     aGCOrStream isStream ifFalse:[
         ^ super displayOn:aGCOrStream.
     ].
@@ -416,6 +414,8 @@
         nextPut:$(.
     self selectionIndex displayOn:aGCOrStream. 
     aGCOrStream nextPut:$)
+
+    "Modified (comment): / 22-02-2017 / 16:52:55 / cg"
 ! !
 
 !SelectionInList methodsFor:'private'!