Index: kernel/File.st
===================================================================
--- kernel/File.st	(revision 6)
+++ kernel/File.st	(working copy)
@@ -146,7 +146,10 @@
     isAbsolute ifFalse: [
 	path addAll: (Directory working substrings: Directory pathSeparator).
     ].
-    substrings := aString substrings: Directory pathSeparator.
+    "A Windows path may contain both / and \ separators. Clean it up
+     to allow easy parsing"
+    result := (aString  collect: [ :i | (i isPathSeparator) ifTrue: [ Directory pathSeparator ] ifFalse: [ i ] ]).
+    substrings := result substrings: Directory pathSeparator.
     substrings := ReadStream on: substrings.
 
     substrings do: [ :each |