From 3020058fadb5de1ff8e38dfd7155c0b7737383f7 Mon Sep 17 00:00:00 2001
From: michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Fri, 13 May 2011 12:08:59 +0000
Subject: * Reworked session management.

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17442 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-web/src/base/httpdefs.pp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'packages/fcl-web/src/base/httpdefs.pp')

diff --git a/packages/fcl-web/src/base/httpdefs.pp b/packages/fcl-web/src/base/httpdefs.pp
index e0ff09c05c..7a01039d96 100644
--- a/packages/fcl-web/src/base/httpdefs.pp
+++ b/packages/fcl-web/src/base/httpdefs.pp
@@ -1700,6 +1700,7 @@ Var
 begin
   CreateGUID(G);
   Result:=GuiDToString(G);
+  Result:=Copy(Result,2,36);
 end;
 
 constructor TCustomSession.Create(AOwner: TComponent);
-- 
cgit v1.2.1