diff --git a/components/codetools/linkscanner.pas b/components/codetools/linkscanner.pas
index d3ecb6019b..302db92030 100644
--- a/components/codetools/linkscanner.pas
+++ b/components/codetools/linkscanner.pas
@@ -2342,7 +2342,7 @@ var
 begin
   SkipSpace;
   ValStart:=SrcPos;
-  while (SrcPos<=SrcLen) and (IsWordChar[Src[SrcPos]]) do
+  while (SrcPos<=SrcLen) and (IsIdentChar[Src[SrcPos]]) do
     inc(SrcPos);
   if CompareUpToken('OBJECTIVEC1',Src,ValStart,SrcPos) then begin
     CompilerModeSwitch:=cmsObjectiveC1;
diff --git a/lcl/include/region.inc b/lcl/include/region.inc
index 18467d166e..ddf5c29721 100644
--- a/lcl/include/region.inc
+++ b/lcl/include/region.inc
@@ -177,7 +177,7 @@ function TRegion.GetClipRect : TRect;
 begin
   if FRegionData.Reference.Allocated
   then begin
-    GetRgnBox(HRGN(FRegionData.Reference.Handle), @Result)
+    GetRgnBox(HRGN(FRegionData.Reference.Handle), @Result);
   end
   else begin
     if FRegionData.Polygon <> nil