diff --git a/src/RWStl/RWStl_Reader.cxx b/src/RWStl/RWStl_Reader.cxx
index f7a5e0eb47..556f31fd94 100644
--- a/src/RWStl/RWStl_Reader.cxx
+++ b/src/RWStl/RWStl_Reader.cxx
@@ -236,10 +236,14 @@ Standard_Boolean RWStl_Reader::IsAscii (Standard_IStream& theStream)
   #define GETPOS(aPos) ((int64_t)aPos)
 #endif
 
+# if defined(_MSC_VER) && ! defined(strncasecmp)
+#  define strncasecmp _strnicmp
+# endif
+
 static inline bool str_starts_with (const char* theStr, const char* theWord, int theN)
 {
   while (isspace (*theStr) && *theStr != '\0') theStr++;
-  return !strncmp (theStr, theWord, theN);
+  return !strncasecmp (theStr, theWord, theN); 
 }
 
 static bool ReadVertex (const char* theStr, double& theX, double& theY, double& theZ)
diff --git a/tests/bugs/stlvrml/bug30113 b/tests/bugs/stlvrml/bug30113
new file mode 100644
index 0000000000..d066733557
--- /dev/null
+++ b/tests/bugs/stlvrml/bug30113
@@ -0,0 +1,8 @@
+readstl a [locate_data_file bug30113.stl]
+
+# Number of triangles check
+checktrinfo a -tri 14248 -nod 7114
+
+# Visual check
+checkview -display a -3d -vdispmode 0 -path ${imagedir}/${test_image}_edges.png
+checkview -display a -3d -vdispmode 1 -path ${imagedir}/${test_image}_shading.png