--- 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