diff --git a/scorch.xex b/scorch.xex
index 3b55330..905f534 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/textproc.asm b/textproc.asm
index 46a37b2..f112879 100644
--- a/textproc.asm
+++ b/textproc.asm
@@ -789,18 +789,18 @@ Suprise	; get a random weapon
 	cmp #51		; defensive weapons are less likely because they are more expensive - probability 255:51 (5:1)
 	bcc GetRandomDefensive
 GetRandomOffensive
-	randomize ind_Missile________ ind_Laser__________
+	randomize ind_Missile________ last_offensive_____
 	cmp #ind_Buy_me_________
 	beq GetRandomOffensive
 	tay
-    lda WeaponUnits,y	; check if weapon exist
-	beq GetRandomOffensive	
+;    lda WeaponUnits,y	; check if weapon exist
+;	beq GetRandomOffensive	
 	bne NoSuprise	; Y always <> 0
 GetRandomDefensive
-	randomize ind_Battery________ ind_Nuclear_Winter_
+	randomize ind_Battery________ last_defensive_____
 	tay
-    lda WeaponUnits,y	; check if weapon exist
-	beq GetRandomDefensive
+;    lda WeaponUnits,y	; check if weapon exist
+;	beq GetRandomDefensive
 	
 NoSuprise
     lda TanksWeaponsTableL,x
@@ -1267,7 +1267,7 @@ NotFirstLetter
 	cpy PositionInName
 	bne @+
     ora #$80 ; place cursor
-@    sta NameAdr,y
+@	sta NameAdr,y
 	dey
 	bpl CursorLoop
 	rts