--- a/OSXOperatingSystem.st	Fri Oct 14 03:21:16 2016 +0200
+++ b/OSXOperatingSystem.st	Fri Oct 14 03:21:23 2016 +0200
@@ -73,7 +73,7 @@
 !
 
 defaultPackagePath
-    "redefined to add stx.app packages and /Library stuff"
+    "redefined to add /Application and /Library stuff"
 
     |path executablePath executableDir packagesDir 
      libDir appDir versionsDir vsnDirName vsnDir|
@@ -85,7 +85,10 @@
         executableDir := executablePath asFilename directory.
         packagesDir := executableDir directory directory / 'Packages'.
         packagesDir exists ifTrue:[
-            path add:packagesDir.
+            packagesDir := packagesDir pathName.
+            (path includes:packagesDir) ifFalse:[
+                path add:packagesDir.
+            ].
         ].
         libDir := '/Library/Frameworks/SmalltalkX.framework' asFilename.
         libDir exists ifTrue:[
@@ -97,7 +100,10 @@
                                     with:Smalltalk revisionNr.
                 vsnDir := versionsDir / vsnDirName.
                 vsnDir exists ifTrue:[
-                    path add:vsnDir pathName.
+                    vsnDir := vsnDir pathName.
+                    (path includes:vsnDir) ifFalse:[
+                        path add:vsnDir.
+                    ].
                 ].
             ].
         ].
@@ -111,7 +117,10 @@
                                     with:Smalltalk revisionNr.
                 vsnDir := versionsDir / vsnDirName.
                 vsnDir exists ifTrue:[
-                    path add:vsnDir pathName.
+                    vsnDir := vsnDir pathName.
+                    (path includes:vsnDir) ifFalse:[
+                        path add:vsnDir.
+                    ].
                 ].
             ].
         ].