--- a/AbstractLauncherApplication.st	Wed Dec 07 06:44:00 2016 +0100
+++ b/AbstractLauncherApplication.st	Mon Dec 12 11:58:14 2016 +0000
@@ -755,7 +755,7 @@
             aView notNil ifTrue:[
                 top := aView topView.
                 (knownTopViews includes:top) ifFalse:[
-                    (top isKindOf:DebugView) ifTrue:[
+                    (top isDebugView) ifTrue:[
                         "/ although modal, show it.
                         showIt := top realized
                     ] ifFalse:[
@@ -8076,7 +8076,7 @@
 !
 
 showPackageInfoAction:package
-    |projectDef comment info dir className fileName docChange|
+    |projectDef comment info projectDir className projectDefinitionFile readMeFile|
 
     info := resources string:'Sorry, could not find any package documentation'.
     projectDef := package asPackageId projectDefinitionClass.
@@ -8088,13 +8088,15 @@
         ].
     ] ifFalse:[
         "/ try to find the package's source
-        dir := Smalltalk getPackageDirectoryForPackage:package.
-        dir notNil ifTrue:[
+        projectDir := Smalltalk getPackageDirectoryForPackage:package.
+        projectDir notNil ifTrue:[
+            |docChange|
+            
             "/ is there a project definition class's source?
             className := ProjectDefinition projectDefinitionClassNameForDefinitionOf:package.
-            fileName := dir / ((Smalltalk fileNameForClass:className),'.st').
-            fileName exists ifTrue:[
-                fileName readingFileDo:[:s |
+            projectDefinitionFile := projectDir / ((Smalltalk fileNameForClass:className),'.st').
+            projectDefinitionFile exists ifTrue:[
+                projectDefinitionFile readingFileDo:[:s |
                     ChangeSet 
                         fromStream:s 
                         while:[:change |
@@ -8114,12 +8116,12 @@
                     info := info ,
                             (resources stringWithCRs:'\\The project''s definition class (%1) is present,\but has no documentation method.\\In file: %2'
                                     with:className
-                                    with:fileName pathName).
+                                    with:projectDefinitionFile pathName).
                 ].
             ] ifFalse:[
                 info := info , 
                         (resources stringWithCRs:'\\No definition class was found in the project.\In folder: %1'
-                                with:dir pathName).
+                                with:projectDir pathName).
             ].
         ].
     ].
@@ -8137,6 +8139,9 @@
         info := comment asString.
     ] ifFalse:[ 
         info := info withColor:Color red.
+        (projectDir notNil and:[ (readMeFile := projectDir / 'README') exists]) ifTrue:[
+            info := info , '\\The README file there says:\\' withCRs , (readMeFile contents asString).
+        ].            
     ].
     infoTextHolder value:info.