diff --git a/fcl/db/db.pp b/fcl/db/db.pp
index 671536b3ef..84254f9c8b 100644
--- a/fcl/db/db.pp
+++ b/fcl/db/db.pp
@@ -198,7 +198,7 @@ type
     function HasParent: Boolean; override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure PropertyChanged(LayoutAffected: Boolean);
-    procedure ReadState(Reader: TAbstractReader); override;
+    procedure ReadState(Reader: TReader); override;
     procedure SetAsBoolean(AValue: Boolean); virtual;
     procedure SetAsDateTime(AValue: TDateTime); virtual;
     procedure SetAsFloat(AValue: Extended); virtual;
@@ -1260,7 +1260,11 @@ end.
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:32:56  michael
+  Revision 1.3  2000-09-02 09:36:36  sg
+  * Changed all occurences of TAbstractReader to TReader, as FCL streaming
+    is source compatible to VCL streaming now (for quite a while, BTW)
+
+  Revision 1.2  2000/07/13 11:32:56  michael
   + removed logs
  
 }
diff --git a/fcl/db/fields.inc b/fcl/db/fields.inc
index 323a2e6a26..2b668d6514 100644
--- a/fcl/db/fields.inc
+++ b/fcl/db/fields.inc
@@ -406,7 +406,7 @@ begin
       FDataset.DataEvent(deDatasetchange,0);
 end;
 
-procedure TField.ReadState(Reader: TAbstractReader); 
+procedure TField.ReadState(Reader: TReader); 
 
 begin
   //!! To be implemented
@@ -1752,7 +1752,11 @@ end;
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:32:56  michael
+  Revision 1.3  2000-09-02 09:36:36  sg
+  * Changed all occurences of TAbstractReader to TReader, as FCL streaming
+    is source compatible to VCL streaming now (for quite a while, BTW)
+
+  Revision 1.2  2000/07/13 11:32:56  michael
   + removed logs
  
 }