From b956e9e52da5adf2b56f10b14f6d260f1d047434 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Fri, 2 Mar 2012 09:43:12 +0000
Subject: [PATCH]  * add a check to TRecall.store for FStorage=nil. Patch by
 Luiz, Mantis #21404

git-svn-id: trunk@20462 -
---
 rtl/objpas/classes/persist.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/persist.inc b/rtl/objpas/classes/persist.inc
index 9eb85acd7b..66546c560a 100644
--- a/rtl/objpas/classes/persist.inc
+++ b/rtl/objpas/classes/persist.inc
@@ -142,7 +142,7 @@ end;
 
 procedure TRecall.Store;
 begin
-  if Assigned(FReference) then
+  if Assigned(FStorage) and Assigned(FReference) then
     FStorage.Assign(FReference);
 end;