diff --git a/.gitattributes b/.gitattributes
index 901b206c71..7defa23835 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -7779,6 +7779,7 @@ tests/webtbs/tw10072.pp svneol=native#text/plain
 tests/webtbs/tw10203.pp svneol=native#text/plain
 tests/webtbs/tw1021.pp svneol=native#text/plain
 tests/webtbs/tw10210.pp svneol=native#text/plain
+tests/webtbs/tw10224.pp svneol=native#text/plain
 tests/webtbs/tw1023.pp svneol=native#text/plain
 tests/webtbs/tw1041.pp svneol=native#text/plain
 tests/webtbs/tw1044.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw10224.pp b/tests/webtbs/tw10224.pp
new file mode 100755
index 0000000000..de091889db
--- /dev/null
+++ b/tests/webtbs/tw10224.pp
@@ -0,0 +1,31 @@
+{$mode objfpc}
+uses
+  SysUtils;
+
+var
+  err : boolean;
+
+procedure expect(const v,s:string);
+var
+  s1 : string;
+begin
+  s1:=SetDirSeparators(s);
+  writeln('relative path: "',v,'"');
+  if v<>s then
+    begin
+      writeln('Error, expected "',s,'"');
+      err:=true;
+    end;
+end;
+
+begin
+  expect(ExtractRelativePath('c:\one\two\three\test.pp','c:\one\two\three\four\five\test2.pp'),'four\five\test2.pp');
+  expect(ExtractRelativePath('c:\one\two\three\four\five\test.pp','c:\one\two\three\test2.pp'),'..\..\test2.pp');
+  expect(ExtractRelativePath('c:\one\two\three\','c:\one\two\three\four\five\test.pp'),'four\five\test.pp');
+  expect(ExtractRelativePath('c:\one\two\three\four\five\','c:\one\two\three\test.pp'),'..\..\test.pp');
+  expect(ExtractRelativePath('c:\one\two\three\','c:\one\two\three\four\five\'),'four\five\');
+  expect(ExtractRelativePath('c:\one\two\three\four\five\','c:\one\two\three\'),'..\..\');
+  if err then
+    halt(1);
+end.
+