--- a/Tools__NewSystemBrowser.st	Sat Sep 22 11:03:02 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Sat Sep 22 12:48:47 2018 +0200
@@ -45753,7 +45753,7 @@
         ex proceed.
     ] do:[
         aManager createBranch:branchName forClasses:allClasses.
-        aManager createBranch:branchName pathes:(pathInfos collect:[:each | each at:1]).
+        aManager createBranch:branchName pathes:(pathInfos collectColumn:1).
     ].
 
     "/ however, to ensure, that the branch is present on every file, do it individually
@@ -45817,6 +45817,7 @@
     "Created: / 04-12-2017 / 17:49:16 / cg"
     "Modified: / 05-12-2017 / 23:35:58 / cg"
     "Modified (comment): / 18-12-2017 / 10:21:32 / mawalch"
+    "Modified: / 22-09-2018 / 11:22:23 / Claus Gittinger"
 !
 
 projectMenuStartBranchUsingManagerNamed:sourceCodeManagerClassName