diff --git a/Atari/textproc.asm b/Atari/textproc.asm
index 6c8c2de..eb7d4b1 100644
--- a/Atari/textproc.asm
+++ b/Atari/textproc.asm
@@ -281,11 +281,13 @@ AfterManualPurchase
 
     mwa #ListOfWeapons WeaponsListDL ;switch to the list of offensive weapons
 
-; we are clearing list of the weapons
     mva #$00 WhichList
     ; offensive weapon - 0, deffensive - %10000000
 GoToActivation
     mva #$ff LastWeapon
+    
+; we are clearing list of the weapons    
+    jsr ClearLists  ; fast lists clear
 
     SetDLI DLIinterruptText  ; jsr SetDLI for text (purchase) screen
     jsr PMoutofScreen
@@ -343,7 +345,6 @@ AfterPurchase
     ; in xbyte there is the address of the line that
     ; is being processed now
     mwa #ListOfWeapons xbyte
-    jsr ClearLists  ; fast lists clear
     ldx #$00  ; index of the checked weapon
     stx HowManyOnTheListOff ; amounts of weapons (shells, bullets) in both lists
     stx HowManyOnTheListDef
diff --git a/scorch.bin b/scorch.bin
index cb4f5b9..f9b5c65 100644
Binary files a/scorch.bin and b/scorch.bin differ
diff --git a/scorch.xex b/scorch.xex
index f6df9f2..bf1fbd5 100644
Binary files a/scorch.xex and b/scorch.xex differ