From 216777f8f1888c314c151674b03ae2e699cfea09 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Wed, 2 Aug 2006 21:44:22 +0000
Subject: [PATCH]  + Fix for bug #6898, thanks to tip from Martin Schreiber

git-svn-id: trunk@4331 -
---
 fcl/db/bufdataset.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/fcl/db/bufdataset.inc b/fcl/db/bufdataset.inc
index 5bd9037e69..42e2aa2bdc 100644
--- a/fcl/db/bufdataset.inc
+++ b/fcl/db/bufdataset.inc
@@ -88,6 +88,7 @@ begin
     FCurrentRecBuf := FCurrentRecBuf^.next;
     FreeRecordBuffer(pc);
     end;
+  FFirstRecBuf:= nil;
   SetLength(FFieldBufPositions,0);
 end;