diff --git a/compiler/nflw.pas b/compiler/nflw.pas
index 41bd072b05..d174e76ed4 100644
--- a/compiler/nflw.pas
+++ b/compiler/nflw.pas
@@ -63,6 +63,7 @@ interface
           function dogetcopy : tnode;override;
           constructor ppuload(t:tnodetype;ppufile:tcompilerppufile);override;
           procedure ppuwrite(ppufile:tcompilerppufile);override;
+          procedure derefnode;override;
           procedure buildderefimpl;override;
           procedure derefimpl;override;
           procedure insertintolist(l : tnodelist);override;
@@ -266,6 +267,15 @@ implementation
       end;
 
 
+    procedure tloopnode.derefnode;
+      begin
+        inherited derefnode;
+        if assigned(t1) then
+          t1.derefnode;
+        if assigned(t2) then
+          t2.derefnode;
+      end;
+
     procedure tloopnode.buildderefimpl;
       begin
         inherited buildderefimpl;