From 012ef5218be1591afb334912eec987165bd28829 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Fri, 28 Jan 2011 10:55:35 +0000
Subject: [PATCH]  * Fixed mem-leak, FContentProducers was re-initialized
 during the inherited destroy

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

diff --git a/packages/fcl-web/src/base/webpage.pp b/packages/fcl-web/src/base/webpage.pp
index 520e6f0819..5e5c1bb977 100644
--- a/packages/fcl-web/src/base/webpage.pp
+++ b/packages/fcl-web/src/base/webpage.pp
@@ -264,9 +264,9 @@ end;
 
 destructor TWebPage.Destroy;
 begin
+  inherited Destroy;
   if assigned(FContentProducers) then
     FreeAndNil(FContentProducers);
-  inherited Destroy;
 end;
 
 function TWebPage.ContentProducerCount: integer;