diff --git a/uCEFBrowserThread.pas b/uCEFBrowserThread.pas
index 255d12b..a9f3500 100644
--- a/uCEFBrowserThread.pas
+++ b/uCEFBrowserThread.pas
@@ -706,6 +706,9 @@ procedure TCEFBrowserThread.SetCookies;
          if domain = '' then begin
             var p := Pos('//', url);
             domain := Copy(url, p+2, Pos('/', url, p+2)-p-2);
+            p := Pos(':', domain);
+            if p > 0 then
+               SetLength(domain, p-1);
          end;
 
          var path := fields.Values['path'];