--- a/Tools__CodeView2.st	Sat Jun 09 11:03:52 2018 +0200
+++ b/Tools__CodeView2.st	Mon Jun 11 12:09:21 2018 +0200
@@ -713,16 +713,17 @@
 
     services notEmptyOrNil ifTrue:[ 
         services do:[:service | service unregister ].
-        services := #().
+        services := OrderedCollection new.
     ].
     servicesFromClient := true.
-    services := aCollectionOfServices.
+    services := aCollectionOfServices asOrderedCollection.
     services notEmptyOrNil ifTrue:[ 
         services do:[:service | service registerIn: self ].
     ].
 
     "Created: / 06-10-2011 / 14:15:36 / cg"
     "Modified: / 13-06-2014 / 14:12:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-06-2018 / 11:51:22 / Claus Gittinger"
 !
 
 servicesFromClient
@@ -1746,7 +1747,7 @@
 
 release
     services do:[:service | service unregister ].
-    services := #().
+    services := OrderedCollection new.
 
     textView model notNil ifTrue:[ 
         textView model removeDependent: self.
@@ -1768,6 +1769,7 @@
 
     "Created: / 23-06-2014 / 20:16:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 23-06-2014 / 22:18:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-06-2018 / 11:50:37 / Claus Gittinger"
 ! !
 
 !CodeView2 methodsFor:'menu actions'!