diff --git a/programs/network/ftpc/gui.inc b/programs/network/ftpc/gui.inc
index a5e3cea28..82fd7531d 100755
--- a/programs/network/ftpc/gui.inc
+++ b/programs/network/ftpc/gui.inc
@@ -335,7 +335,7 @@ gui: ;//////////////////////////////////////////////////////////////////////////
       @@:
         cmp     ah, 1
         je      .exit
-      
+
         jmp     .still
 
     .print:
@@ -610,6 +610,7 @@ fun_on_enter:
     cmp     byte[esi], 0
     jne     @b
     mov     word[edi], 0x000a
+    add     esp, 28 ; partial fix if function is not called
     jmp     cmd_stor
 
 
@@ -618,6 +619,7 @@ fun_on_enter:
 align 4
 fun_on_enter2:
 
+    add     esp, 28 ; partial fix if function is not called
     stdcall [tl_node_get_data], tree2
     lea     esi, [eax+4]
     cmp     dword[esi], 0x2E2E
diff --git a/programs/network/ftpc/servercommands.inc b/programs/network/ftpc/servercommands.inc
index 75f7a540f..607b3ec9e 100644
--- a/programs/network/ftpc/servercommands.inc
+++ b/programs/network/ftpc/servercommands.inc
@@ -194,6 +194,7 @@ data_loop:
         test    eax, eax
         jz      @f
         call    error_fs
+        add     esp, 4 ; fix stack
         jmp     close_datacon
       @@:
         pop     eax