--- a/Tools__NewSystemBrowser.st	Thu Jun 30 07:04:36 2016 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Jun 28 08:06:44 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -30092,23 +30090,23 @@
 classMenuEditResourceFiles
     "fetch the class' package resource file for editing"
 
-    |files filename resources|
+    |files filename rsources|
 
     files := Set new.
     self selectedClassesValue do:[:eachClass |
         |defClass directory|
 
         (defClass := eachClass theNonMetaclass projectDefinitionClass) notNil ifTrue:[
-            resources := defClass classResources.
-        ].
-        resources notNil ifTrue:[
-            resources := resources projectPack.
-            resources notNil ifTrue:[
-                filename := resources packsFileName.
+            rsources := defClass classResources.
+        ].
+        rsources notNil ifTrue:[
+            rsources := rsources projectPack.
+            rsources notNil ifTrue:[
+                filename := rsources packsFileName.
             ]
         ].
         filename isNil ifTrue:[
-            directory := Smalltalk packageDirectoryForPackageId:(eachClass package).
+            directory := Smalltalk getPackageDirectoryForPackage:(eachClass package).
             filename := directory asFilename / 'resources' / (Smalltalk language, '.rs').
         ].
         filename notNil ifTrue:[
@@ -30121,6 +30119,8 @@
     files do:[:eachFile |
         UserPreferences fileBrowserClass openOn:eachFile
     ].
+
+    "Modified: / 28-06-2016 / 07:52:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 classMenuExcludeFromProject
@@ -40297,6 +40297,7 @@
     "Modified: / 28-02-2012 / 16:27:44 / cg"
 ! !
 
+
 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 nameSpaceMenuCheckOut
@@ -47080,7 +47081,7 @@
 
         self activityNotification:nil.
         browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods.
-        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
+        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
         browser readOnly:true.
     ].
 
@@ -51658,7 +51659,7 @@
             label:[:chg | 
                 |lbl|
                 "/ lbl := chg printString
-                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
+                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
                 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[
                     lbl := lbl asText allStrikedOut,' ','(removed)' allItalic.
                 ].    
@@ -59019,6 +59020,7 @@
     ^ selectorCompletion
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass