* Let TSessionHTTPModule.CheckSession really create a new session when there is none

git-svn-id: trunk@14576 -

packages/fcl-web/src/websession.pp

@@ -342,8 +342,8 @@ procedure TSessionHTTPModule.CheckSession(ARequest : TRequest);
 
 begin
 {$ifdef cgidebug}SendMethodEnter('SessionHTTPModule('+Name+').CheckSession');{$endif}
-  If CreateSession and Assigned(FSession) then
-    FSession.InitSession(ARequest,FOnNewSession,FOnSessionExpired);
+  If CreateSession and Assigned(Session) then
+    Session.InitSession(ARequest,FOnNewSession,FOnSessionExpired);
 {$ifdef cgidebug}SendMethodExit('SessionHTTPModule('+Name+').CheckSession');{$endif}
 end;