diff --git a/Utility/Path.hs b/Utility/Path.hs
index 0409ff05f6..dc91ce50c3 100644
--- a/Utility/Path.hs
+++ b/Utility/Path.hs
@@ -143,7 +143,7 @@ relPathDirToFileAbs from to
   where
 	pfrom = sp from
 	pto = sp to
-	sp = map dropTrailingPathSeparator . splitPath
+	sp = map dropTrailingPathSeparator . splitPath . dropDrive
 	common = map fst $ takeWhile same $ zip pfrom pto
 	same (c,d) = c == d
 	uncommon = drop numcommon pto