From 42b92017286903abcf3cf1e0f09bad81f427552a Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sun, 11 Jun 2006 06:24:01 +0000
Subject: [PATCH]   * Fix disposenode bug.

git-svn-id: trunk@3838 -
---
 fv/outline.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/fv/outline.pas b/fv/outline.pas
index ac674bfea5..bd98299f2a 100644
--- a/fv/outline.pas
+++ b/fv/outline.pas
@@ -98,13 +98,16 @@ end;
 
 procedure disposenode(node:Pnode);
 
+var next:Pnode;
+
 begin
   while node<>nil do
     begin
       disposenode(node^.childlist);
       disposestr(node^.text);
+      next:=node^.next;
       dispose(node);
-      node:=node^.next;
+      node:=next;
     end;
 end;