diff --git a/.gitattributes b/.gitattributes
index 462e5f1ac8..4fba2682b1 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -8415,6 +8415,7 @@ tests/webtbs/tw8861.pp svneol=native#text/plain
 tests/webtbs/tw8870.pp svneol=native#text/plain
 tests/webtbs/tw8883.pp svneol=native#text/plain
 tests/webtbs/tw8919.pp svneol=native#text/plain
+tests/webtbs/tw8930.pp svneol=native#text/plain
 tests/webtbs/tw8935.pp svneol=native#text/plain
 tests/webtbs/tw8950.pp svneol=native#text/plain
 tests/webtbs/tw8975.pp svneol=native#text/plain
diff --git a/compiler/widestr.pas b/compiler/widestr.pas
index 5bddf2a0cd..1c0c0d634d 100644
--- a/compiler/widestr.pas
+++ b/compiler/widestr.pas
@@ -65,7 +65,7 @@ unit widestr;
       cp8859_1,cp850,cp437,
       { cyrillic code pages }
       cp1251,cp866,cp8859_5,
-      globals;
+      globals,cutils;
 
 
     procedure initwidestring(out r : pcompilerwidestring);
@@ -263,7 +263,7 @@ unit widestr;
 
     function cpavailable(const s : string) : boolean;
       begin
-          cpavailable:=mappingavailable(s);
+          cpavailable:=mappingavailable(lower(s));
       end;
 
 end.
diff --git a/tests/webtbs/tw8930.pp b/tests/webtbs/tw8930.pp
new file mode 100644
index 0000000000..3549cc68da
--- /dev/null
+++ b/tests/webtbs/tw8930.pp
@@ -0,0 +1,6 @@
+{ %norun }
+
+{$codepage CP850}
+
+begin
+end.