--- a/AbstractOperatingSystem.st	Mon Oct 09 17:31:09 2017 +0200
+++ b/AbstractOperatingSystem.st	Mon Oct 09 17:40:51 2017 +0200
@@ -3363,13 +3363,19 @@
     "/
     "/ default: return an array filled with
     "/ root, home and current directories.
+    "/ expecco expects an OrderedCollection here
     "/
     ^ Array
-	with:'/'
-	with:(self getHomeDirectory)
-	with:(Filename currentDirectory pathName)
-
-    "Modified: / 5.5.1999 / 01:06:26 / cg"
+        with:'/'
+        with:(self getHomeDirectory)
+        with:(Filename currentDirectory pathName)
+
+    "
+        OperatingSystem getDriveList
+    "
+
+    "Modified: / 05-05-1999 / 01:06:26 / cg"
+    "Modified: / 09-10-2017 / 17:32:37 / stefan"
 !
 
 getMountedVolumes