[Instantobjects-cvscommit] SF.net SVN: instantobjects: [746] trunk/Source/Core/InstantPersistence.pas

[<sr...@us...>]

Revision: 746
          http://svn.sourceforge.net/instantobjects/revision/?rev=746&view=rev
Author:   srmitch
Date:     2006-12-23 17:13:39 -0800 (Sat, 23 Dec 2006)

Log Message:
-----------
- Fix for SF Bug #1620637 - TInstantReferences.HasItem(Index) incorrect implementation.

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas

Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2006-12-22 05:13:59 UTC (rev 745)
+++ trunk/Source/Core/InstantPersistence.pas	2006-12-24 01:13:39 UTC (rev 746)
@@ -4975,7 +4975,7 @@
 
 function TInstantReferences.GetInstances(Index: Integer): TInstantObject;
 begin
-  Result := ObjectReferenceList[Index];
+  Result := RefItems[Index].Instance;
 end;
 
 function TInstantReferences.GetObjectReferenceList: TInstantObjectReferenceList;