--- a/Tools__NewSystemBrowser.st	Fri Jun 15 04:00:37 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Mon Jun 18 14:12:54 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -41910,7 +41908,6 @@
     "Modified: / 28-02-2012 / 16:27:44 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 nameSpaceMenuCheckOut
@@ -45358,7 +45355,14 @@
     theFile = 'app.nsi' ifTrue:[
         theFile := defClass nsiFilename.
     ].
-
+    theFile isNil ifTrue:[
+        self information:(resources string:'No %1-file defined in class "%2" (for package %3).'
+                with:whichFile
+                with:(ProjectDefinition projectDefinitionClassNameForDefinitionOf:package)
+                with:package allBold).
+        ^ self.
+    ].
+    
     (missingName := defClass allClassNames "compiled_classNames"
         detect:[:aName |
             |cls|
@@ -45417,6 +45421,7 @@
     "Created: / 12-10-2011 / 19:02:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 21-12-2011 / 20:24:42 / cg"
     "Modified (comment): / 24-02-2017 / 11:44:41 / cg"
+    "Modified: / 18-06-2018 / 14:10:30 / Claus Gittinger"
 !
 
 projectMenuSmalllintCheck: what
@@ -48725,7 +48730,7 @@
     dummyChangeSet := ChangeSet new addAll:previousMethods; yourself.
     dummyChangeSet reverse.  "/ youngest first.
     browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet.
-    browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
+    browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
     browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[].
     browser readOnly:true.
 
@@ -48952,7 +48957,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.
     ].
 
@@ -53600,7 +53605,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.
                 ].