diff --git a/solvers/USnowverload.pas b/solvers/USnowverload.pas
index 6407018..cd31953 100644
--- a/solvers/USnowverload.pas
+++ b/solvers/USnowverload.pas
@@ -246,6 +246,7 @@ destructor TNetwork.Destroy;
 begin
   FComponents.Free;
   FWires.Free;
+  FContracted.Free;
   inherited Destroy;
 end;