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

[<jcm...@us...>]

Revision: 765
          http://svn.sourceforge.net/instantobjects/revision/?rev=765&view=rev
Author:   jcmoraisjr
Date:     2007-02-24 15:45:06 -0800 (Sat, 24 Feb 2007)

Log Message:
-----------
Fixed bug #1668108.

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

Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2007-02-24 20:08:53 UTC (rev 764)
+++ trunk/Source/Core/InstantPersistence.pas	2007-02-24 23:45:06 UTC (rev 765)
@@ -4227,7 +4227,7 @@
   if Assigned(Metadata) and (Metadata.StorageKind = skEmbedded) then
     raise EInstantError.CreateFmt(SUnsupportedAttributeOperation,
         ['AddReference', ClassName, Name, 'StorageKind = skEmbedded']);
-  if RequiredClassName <> AObjectClassName then
+  if not InstantFindClass(AObjectClassName).InheritsFrom(RequiredClass) then
     raise EInstantValidationError.CreateFmt(SInvalidObjectClass,
         [AObjectClassName, ClassName, Name, RequiredClass.ClassName]);