diff --git a/programs/fs/kfm/trunk/build.bat b/programs/fs/kfm/trunk/build.bat
index 6b26fa6e25..ae14b401ad 100644
--- a/programs/fs/kfm/trunk/build.bat
+++ b/programs/fs/kfm/trunk/build.bat
@@ -1,2 +1,5 @@
-fasm kfm.asm kfm
+@echo lang fix en >lang.inc
+@fasm -m 16384 kfm.asm kfm 
+@erase lang.inc
+@kpack kfm
 @pause
diff --git a/programs/fs/kfm/trunk/kfm.asm b/programs/fs/kfm/trunk/kfm.asm
index 7803644994..97fdde8707 100644
--- a/programs/fs/kfm/trunk/kfm.asm
+++ b/programs/fs/kfm/trunk/kfm.asm
@@ -53,17 +53,21 @@ include   'files.inc'
 STRLEN = 1024
 ;---------------------------------------------------------------------
 START:
-    mcall 9, procinfo, -1
-    mov   eax,[ebx+30]
-    mov   [PID],eax
-    xor   ecx,ecx
-@@:
-    inc   ecx
-    mcall 9, procinfo
-    mov   eax,[PID]
-    cmp   eax,[ebx+30]
-    jne   @r
-    mov  [active_process],ecx
+;    mcall 9, procinfo, -1
+;    mov   eax,[ebx+30]
+;    mov   [PID],eax
+;    xor   ecx,ecx
+;@@:
+;    inc   ecx
+;    mcall 9, procinfo
+;    mov   eax,[PID]
+;    cmp   eax,[ebx+30]
+;    jne   @r
+;    mov  [active_process],ecx
+	mcall	9,procinfo,-1
+	mov	ecx,[ebx+30]	; PID
+	mcall	18,21
+	mov	[active_process],eax	; WINDOW SLOT
     mov   [appl_memory],mem
     mov   ax,[select_disk_char]
     mov   [read_folder_name],ax