diff --git a/packages/fcl-web/src/websocket/fpwebsocket.pp b/packages/fcl-web/src/websocket/fpwebsocket.pp
index cb514c03dc..845086d6b5 100644
--- a/packages/fcl-web/src/websocket/fpwebsocket.pp
+++ b/packages/fcl-web/src/websocket/fpwebsocket.pp
@@ -538,7 +538,7 @@ procedure TWSHandShakeResponse.ToStrings(aHandShake: TWSHandshakeRequest; aRespo
 
   Var
     B : TBytes;
-    hash : TSHA1Digest;
+    {%H-}hash : TSHA1Digest;
     K : string;
   begin
     // respond key
@@ -1410,7 +1410,7 @@ begin
 
          if not (woCloseExplicit in Options) then
          begin
-          if (aFrame.Reason<CLOSE_NORMAL_CLOSURE) or
+           if (aFrame.Reason<CLOSE_NORMAL_CLOSURE) or
              (aFrame.Reason=CLOSE_RESERVER) or
              (aFrame.Reason=CLOSE_NO_STATUS_RCVD) or
              (aFrame.Reason=CLOSE_ABNORMAL_CLOSURE) or