--- a/Tools__NamespaceList.st	Fri Mar 01 16:19:45 2019 +0100
+++ b/Tools__NamespaceList.st	Fri Mar 01 16:20:04 2019 +0100
@@ -551,7 +551,7 @@
 "/        ].
         self nameSpaceList value:newList.
 
-        oldSelection size > 0 ifTrue:[
+        oldSelection size ~~ 0 ifTrue:[
             newSelection := oldSelection select:[:nm | 
                                 (nm = self class nameListEntryForALL) 
                                 or:[ (environment at:nm asSymbol) isNameSpace]
@@ -562,6 +562,8 @@
         ]
     ].
     self setListValid:true.
+
+    "Modified: / 01-03-2019 / 16:19:22 / Claus Gittinger"
 ! !
 
 !NamespaceList class methodsFor:'documentation'!