--- a/Tools__ProjectList.st	Sat Jan 31 13:46:59 2015 +0100
+++ b/Tools__ProjectList.st	Sat Jan 31 13:47:11 2015 +0100
@@ -665,6 +665,8 @@
     super commonPostOpen.
     listValid ifFalse:[
         self enqueueDelayedUpdateList.
+        self enqueueMessage:#updateSelectionIndexFromSelection for:self arguments:nil. "/ #().
+
     ]. 
 !
 
@@ -1027,10 +1029,10 @@
 !ProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ProjectList.st,v 1.72 2015-01-31 01:59:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ProjectList.st,v 1.73 2015-01-31 12:47:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ProjectList.st,v 1.72 2015-01-31 01:59:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ProjectList.st,v 1.73 2015-01-31 12:47:11 cg Exp $'
 ! !