Tools__NewSystemBrowser.st
changeset 18838 2751cc4960c2
parent 18835 ec0e9853a0b7
child 18848 d85d4cf51cec
--- a/Tools__NewSystemBrowser.st	Sun Jun 23 18:57:58 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Sun Jun 23 19:44:06 2019 +0200
@@ -39057,7 +39057,7 @@
             title:'Container to compare' note:nil
             initialModule:containerModule
             initialPackage:containerPackage
-            initialFileName:(aClass name , '.st')
+            initialFileName:((aClass name copyReplaceAll:$: with:$_), '.st')
             forNewContainer:false.
         rslt isNil ifTrue:[
             "/ cancel
@@ -39114,6 +39114,7 @@
     "Modified: / 29-09-2011 / 15:43:08 / cg"
     "Created: / 11-10-2011 / 10:34:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 21-12-2011 / 20:11:25 / cg"
+    "Modified: / 23-06-2019 / 18:59:59 / Claus Gittinger"
 ! !
 
 !NewSystemBrowser methodsFor:'menu actions-code'!