instantobjects-cvscommit

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

Revision: 780
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=780&view=rev
Author:   jcmoraisjr
Date:     2008-07-07 15:04:57 -0700 (Mon, 07 Jul 2008)

Log Message:
-----------
Fixed Connector.GenerateId call.

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

Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2008-07-01 12:34:20 UTC (rev 779)
+++ trunk/Source/Core/InstantPersistence.pas	2008-07-07 22:04:57 UTC (rev 780)
@@ -6194,7 +6194,7 @@
   if IsAbandoned then
     Result := InstantGenerateId
   else
-    Result := Connector.GenerateId;
+    Result := Connector.GenerateId(Self);
 end;
 
 function TInstantObject.GetCaption: string;