kc3-lang/kc3

diff --git a/libc3/window/window.c b/libc3/window/window.c
index fc8f23d..00ea654 100644
--- a/libc3/window/window.c
+++ b/libc3/window/window.c
@@ -47,6 +47,8 @@ void window_clean (s_window *window)
   uw i;
   assert(window);
   i = 0;
+  if (window->seq && window->seq->unload)
+    window->seq->unload(window->seq);
   while (i < window->sequence_count) {
     sequence_clean(window->sequence + i);
     i++;