* Set the FFirstRecBuf of the default index to nil when the dataset is closed. (Fixes test TestExceptOnsecClose)

git-svn-id: trunk@10347 -

packages/fcl-db/src/base/bufdataset.pas

@@ -699,6 +699,7 @@ begin
       FCurrentRecBuf := FCurrentRecBuf[IndNr].next;
       FreeRecordBuffer(pc);
       end;
+    FFirstRecBuf:=nil;
 {$ENDIF}
     end;