diff --git a/scorch.asm b/scorch.asm
index 1fbbe84..c2b2ba8 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -430,12 +430,13 @@ ShootNow
     
     lda HitFlag ;0 if missed
     beq missed
-Seppuku
+    
     lda #0
     sta FallDown1
     sta FallDown2
     jsr Explosion
 
+continueMainRoundLoopAfterSeppuku
     ;here we clear offensive text (after a shoot)
     ldy TankNr
     mva #0 plot4x4color
@@ -562,6 +563,16 @@ NoPlayerNoDeath
     ; if processor is here it means there are no more explosions
     jmp MainRoundLoop
 	.endp
+	
+;---------------------------------
+.proc Seppuku
+    lda #0
+    sta FallDown1
+    sta FallDown2
+    lda #1
+    jsr ExplosionDirect
+    jmp continueMainRoundLoopAfterSeppuku
+.endp
 ;---------------------------------
 PlayerXdeath .proc
 
diff --git a/scorch.xex b/scorch.xex
index 4043c6d..e5f0072 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/weapons.asm b/weapons.asm
index 20be97e..7a542ba 100755
--- a/weapons.asm
+++ b/weapons.asm
@@ -2,7 +2,7 @@
 
     .IF *>0 ;this is a trick that prevents compiling this file alone
 ;--------------------------------------------------
-Explosion .proc
+.proc Explosion
 ;--------------------------------------------------
     ;cleanup of the soil fall down ranges (left and right)
     mwa #screenwidth RangeLeft