--- a/AbstractFileBrowser.st	Sun May 26 02:28:17 2019 +0200
+++ b/AbstractFileBrowser.st	Sun May 26 02:37:42 2019 +0200
@@ -8243,23 +8243,30 @@
 openChangesBrowser
     "open a change browser on the selected file(s)"
 
-    self currentSelectedDirectories notEmptyOrNil ifTrue:[
-        GitHubSmalltalkPackageReader notNil ifTrue:[
-            self currentSelectedDirectories do:[:fn |
+    |files remaining|
+    
+    GitHubSmalltalkPackageReader notNil ifTrue:[
+        files := self currentSelectedFiles.
+        remaining := files copy.
+        files do:[:fn |
+            fn isDirectory ifTrue:[
                 (fn suffix = 'package') ifTrue:[
                     ChangeSetBrowser openOn:(GitHubSmalltalkPackageReader readPackageFrom:fn).
-                ].    
-                (fn suffix = 'class') ifTrue:[
-                    ChangeSetBrowser openOn:(GitHubSmalltalkClassReader readClassFrom:fn).
-                ].    
+                    remaining remove:fn.
+                ] ifFalse:[   
+                    (fn suffix = 'class') ifTrue:[
+                        ChangeSetBrowser openOn:(GitHubSmalltalkClassReader readClassFrom:fn).
+                        remaining remove:fn.
+                    ].    
+                ].
             ].
-            ^ self.
-        ].
+        ].
+        remaining isEmpty ifTrue:[^ self].
     ].
     
     self openTool:(UserPreferences current changesBrowserClass)
 
-    "Modified: / 30-06-2018 / 20:33:24 / Claus Gittinger"
+    "Modified: / 26-05-2019 / 02:37:03 / Claus Gittinger"
 !
 
 openDiffView