diff --git a/.gitattributes b/.gitattributes
index 92e2a3605d..87ba150f7b 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6109,6 +6109,7 @@ tests/webtbs/tw3893.pp svneol=native#text/plain
 tests/webtbs/tw3898.pp svneol=native#text/plain
 tests/webtbs/tw3899.pp svneol=native#text/plain
 tests/webtbs/tw3900.pp svneol=native#text/plain
+tests/webtbs/tw3939.pp svneol=native#text/plain
 tests/webtbs/tw3953a.pp svneol=native#text/plain
 tests/webtbs/tw3953b.pp svneol=native#text/plain
 tests/webtbs/tw3967.pp svneol=native#text/plain
diff --git a/compiler/scandir.pas b/compiler/scandir.pas
index 56b3a843fe..7a0432d5af 100644
--- a/compiler/scandir.pas
+++ b/compiler/scandir.pas
@@ -1163,6 +1163,7 @@ implementation
         AddDirective('VARSTRINGCHECKS',directive_all, @dir_varstringchecks);
         AddDirective('VERSION',directive_all, @dir_version);
         AddDirective('WAIT',directive_all, @dir_wait);
+        AddDirective('WARN',directive_all, @dir_warnings);
         AddDirective('WARNING',directive_all, @dir_warning);
         AddDirective('WARNINGS',directive_all, @dir_warnings);
         AddDirective('WEAKPACKAGEUNIT',directive_all, @dir_weakpackageunit);
diff --git a/tests/webtbs/tw3939.pp b/tests/webtbs/tw3939.pp
new file mode 100644
index 0000000000..9d140f5a0f
--- /dev/null
+++ b/tests/webtbs/tw3939.pp
@@ -0,0 +1,7 @@
+{$warn+}
+{$warnings-}
+{$warn-}
+{$warnings+}
+begin
+end.
+