diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc
index 39e29a8b63..7ed0396587 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -963,7 +963,7 @@ var
   li : Int64;
 begin
   Val(s, li, Error);
-  TryStrToInt:=(Error=0) and (li<=High(Longint)) and (li>=Low(Longint));
+  TryStrToInt:=(Error=0) and (li<=High(DWord)) and (li>=Low(Longint));
   if TryStrToInt then
     i:=li;
 end;
diff --git a/tests/webtbs/tw8177.pp b/tests/test/units/sysutils/tstrtoint.pp
similarity index 100%
rename from tests/webtbs/tw8177.pp
rename to tests/test/units/sysutils/tstrtoint.pp