--- a/Filename.st	Tue Dec 18 15:39:53 2018 +0100
+++ b/Filename.st	Wed Dec 19 11:18:10 2018 +0100
@@ -5854,7 +5854,7 @@
     [
         otherPath := otherDir pathName.
         "/ if I am below:
-        (myPath startsWith:otherPath) ifTrue:[
+        (myPath startsWith:otherPath caseSensitive:self class isCaseSensitive) ifTrue:[
             rest := (myPath copyFrom:otherPath size+1).
             rest isEmpty ifTrue:[^ prefix,'.' ].
             (rest startsWith:self separator) ifTrue:[^ prefix,(rest copyFrom:2) ].
@@ -5893,6 +5893,8 @@
 
      self assert:('/a/b/c/d' asFilename pathNameRelativeFrom:'/a/x/y/z') = '../../../b/c/d'  
     "
+
+    "Modified: / 19-12-2018 / 11:17:07 / sr"
 !
 
 physicalFilename