--- a/Tools__NewSystemBrowser.st	Mon Jun 22 16:42:46 2015 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Jun 24 00:24:37 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -41766,7 +41764,7 @@
     selectedProjects := self selectedProjectsValue.
     currentProject := self theSingleSelectedProject.
     currentProject notNil ifTrue:[
-        fileName := currentProject asString copy replaceAny:' :/' with:$_.
+        fileName := ProjectDefinition projectDefinitionClassNameForDefinitionOf:currentProject.
     ] ifFalse:[
         fileName := 'someProjects'
     ].