diff --git a/.gitattributes b/.gitattributes
index 71fbb50138..98245f6cd1 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -16200,6 +16200,7 @@ tests/webtbs/tw33818.pp svneol=native#text/pascal
 tests/webtbs/tw33839a.pp -text svneol=native#text/pascal
 tests/webtbs/tw33839b.pp -text svneol=native#text/pascal
 tests/webtbs/tw33840.pp -text svneol=native#text/pascal
+tests/webtbs/tw33898.pp -text svneol=native#text/pascal
 tests/webtbs/tw3402.pp svneol=native#text/plain
 tests/webtbs/tw3411.pp svneol=native#text/plain
 tests/webtbs/tw3418.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw33898.pp b/tests/webtbs/tw33898.pp
new file mode 100644
index 0000000000..98d7b000b3
--- /dev/null
+++ b/tests/webtbs/tw33898.pp
@@ -0,0 +1,11 @@
+{ %NORUN }
+
+program tw33898;
+
+{$mode delphi}
+
+uses sysutils;
+
+begin
+  writeln(string.join('&', ['ab', 'cd']));
+end.