Merged revisions 4331 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r4331 | joost | 2006-08-02 23:44:22 +0200 (Wed, 02 Aug 2006) | 1 line
  
   + Fix for bug #6898, thanks to tip from Martin Schreiber
........

git-svn-id: branches/fixes_2_0@4441 -

fcl/db/bufdataset.inc

@@ -86,6 +86,7 @@ begin
     FCurrentRecBuf := FCurrentRecBuf^.next;
     FreeRecordBuffer(pc);
     end;
+  FFirstRecBuf:= nil;
   SetLength(FFieldBufPositions,0);
 end;