partial fix if function is not called

programs/network/ftpc/gui.inc

@@ -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

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