From ba0a4a78f38ea2e2faa1a67e3c24d9b1779ae6d6 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 2 May 2016 13:17:51 +0000
Subject: [PATCH] * Fix DoGetCGIVar

git-svn-id: trunk@33613 -
---
 packages/fcl-web/src/base/custcgi.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-web/src/base/custcgi.pp b/packages/fcl-web/src/base/custcgi.pp
index 3f3df29516..7ee11a0335 100644
--- a/packages/fcl-web/src/base/custcgi.pp
+++ b/packages/fcl-web/src/base/custcgi.pp
@@ -318,7 +318,7 @@ end;
 function TCGIRequest.DoGetCGIVar(AVarName : String) : String;
 
 begin
-  GetEnvironmentVariable(AVarName);
+  Result := GetEnvironmentVariable(AVarName);
 end;
 
 function TCGIRequest.GetCGIVar(Index: integer): String;