diff --git a/.gitattributes b/.gitattributes
index 37040729cd..309cc4cf07 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -7385,6 +7385,7 @@ tests/test/opt/tretopt.pp svneol=native#text/plain
 tests/test/opt/tspace.pp svneol=native#text/plain
 tests/test/packages/fcl-registry/tregistry1.pp svneol=native#text/plain
 tests/test/packages/hash/tmdtest.pp svneol=native#text/plain
+tests/test/packages/webtbs/tw10045.pp svneol=native#text/plain
 tests/test/packages/webtbs/tw1808.pp svneol=native#text/plain
 tests/test/packages/webtbs/tw3820.pp svneol=native#text/plain
 tests/test/packages/win-base/tdispvar1.pp svneol=native#text/plain
diff --git a/tests/test/packages/webtbs/tw10045.pp b/tests/test/packages/webtbs/tw10045.pp
new file mode 100644
index 0000000000..21b3208091
--- /dev/null
+++ b/tests/test/packages/webtbs/tw10045.pp
@@ -0,0 +1,31 @@
+uses regexpr;
+
+var
+  engine : tRegexprEngine;
+  source, dest : ansistring;
+  count : longint;
+begin
+  if not GenerateRegExprEngine( 'foo', [], engine) then
+  begin
+    writeln( 'Failed to generate regex. engine.' );
+    halt(1)
+  end;
+
+  source := 'foo bur a';
+  count := RegExprReplaceAll(engine, source, '@', dest);
+  if (count<>1) or (dest<>'@ bur a') then
+    halt(1);
+
+  source := 'xfoo bur a';
+  count := RegExprReplaceAll(engine, source, '@', dest);
+  if (count<>1) or (dest<>'x@ bur a') then
+    halt(1);
+
+  source := 'foo bur a';
+  count := RegExprReplaceAll(engine, source, '@', dest);
+  if (count<>1) or (dest<>'@ bur a') then
+    halt(1);
+
+  DestroyRegExprEngine( engine );
+  writeln('ok');
+end.