From 4c42fc0a92bd8cdaad5b14fddd50563d40fd793f Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 17 Sep 1999 16:41:10 +0000
Subject: [PATCH]  * other stream error for Watches/Breakpoints corrected

---
 ide/text/fpdesk.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/ide/text/fpdesk.pas b/ide/text/fpdesk.pas
index ebec48ec0f..3f0738c3b3 100644
--- a/ide/text/fpdesk.pas
+++ b/ide/text/fpdesk.pas
@@ -122,7 +122,7 @@ begin
   if OK then
     begin
       OWC:=WatchesCollection;
-      New(WatchesCollection,Load(S^));
+      WatchesCollection:=PWatchesCollection(S^.Get);
       OK:=(S^.Status=stOK);
       if OK and assigned(OWC) then
         Dispose(OWC,Done);
@@ -171,7 +171,7 @@ begin
   if OK then
     begin
       OBC:=BreakpointsCollection;
-      New(BreakpointsCollection,Load(S^));
+      BreakpointsCollection:=PBreakpointCollection(S^.get);
       OK:=(S^.Status=stOK);
       If OK and assigned(OBC) then
         Dispose(OBC,Done);
@@ -403,7 +403,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.11  1999-09-17 16:28:58  pierre
+  Revision 1.12  1999-09-17 16:41:10  pierre
+   * other stream error for Watches/Breakpoints corrected
+
+  Revision 1.11  1999/09/17 16:28:58  pierre
    * ResWatches in WriteBreakpoints typo !
 
   Revision 1.10  1999/09/16 14:34:58  pierre