--- a/Tools__NewSystemBrowser.st	Wed Mar 01 16:14:50 2017 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Mar 07 12:46:50 2017 +0100
@@ -36837,7 +36837,17 @@
         expeccoVersionArray := (Smalltalk at:#'Expecco::Expecco') versionArray.
         patchesDir := (Smalltalk at:#exept_expecco) packageDirectory / 'patches'
                         / ('%1.%2.%3' expandPlaceholdersWith:expeccoVersionArray).
-
+        patchesDir exists ifFalse:[
+            "if the version specific patch director does not exists, suggest parent"    
+            patchesDir := patchesDir directoryName.
+        ].
+        patchesDir := Dialog 
+                        requestDirectoryName:'Select patch directory:' 
+                        default:patchesDir.
+        patchesDir isNil ifTrue:[
+            ^ self.
+        ].
+        patchesDir := patchesDir asFilename.
         patchesDir exists ifFalse:[
             "Not an expecco development version - fall back"
             patchesDir := (Smalltalk at:#'Expecco::Expecco') patchesDir.
@@ -36873,6 +36883,7 @@
 
     "Created: / 26-09-2012 / 15:13:07 / cg"
     "Modified: / 17-01-2014 / 11:55:51 / sr"
+    "Modified: / 07-03-2017 / 12:43:34 / stefan"
 !
 
 doCompareClassesWithRepository:collectionOfClasses