--- a/AbstractOperatingSystem.st	Fri Oct 14 03:37:46 2016 +0200
+++ b/AbstractOperatingSystem.st	Fri Oct 14 03:37:58 2016 +0200
@@ -5227,8 +5227,21 @@
         ].
     ].
 
-    packagePath := packagePath select:[:each | (each asFilename / 'packages') exists]
-                               thenCollect:[:each | (each asFilename constructString:'packages')].
+    packagePath := packagePath 
+                    collect:[:each | 
+                        |p|
+                        
+                        (p := each asFilename / 'packages') exists ifTrue:[
+                            p pathName
+                        ] ifFalse:[
+                            (p := each asFilename / 'Packages') exists ifTrue:[
+                                p pathName
+                            ] ifFalse:[
+                                nil
+                            ].    
+                        ].    
+                    ]
+                    thenSelect:[:each | each notNil].
 
     "
      unconditionally prepend all directories from $STX_PACKAGEPATH