diff --git a/sys/dev/display_soft.pas b/sys/dev/display_soft.pas
index 61df916c..78c35b12 100644
--- a/sys/dev/display_soft.pas
+++ b/sys/dev/display_soft.pas
@@ -665,7 +665,11 @@ begin
  if (Node=nil) then Exit(EBUSY);
 
  Flip:=FFlipAlloc.Alloc;
- if (Flip=nil) then Exit(EBUSY);
+ if (Flip=nil) then
+ begin
+  FSubmitAlloc.Free(Node);
+  Exit(EBUSY);
+ end;
 
  Node^.submit:=submit^;
  Node^.tsc   :=rdtsc();