diff --git a/crypto/bn/Makefile b/crypto/bn/Makefile
index 8802dde70e0c9ce80ac99840a4a0808681edc84a..3fd08e719a6f5651a4ffa98ec296cd31f1221ff3 100644
--- a/crypto/bn/Makefile
+++ b/crypto/bn/Makefile
@@ -129,6 +129,9 @@ aix_ppc64-mont.s: asm/ppc-mont.pl;	$(PERL) asm/ppc-mont.pl $@
 osx_ppc32-mont.s: asm/ppc-mont.pl;	$(PERL) $< $@
 osx_ppc64-mont.s: asm/ppc-mont.pl;	$(PERL) $< $@
 
+alpha-mont.s:	asm/alpha-mont.pl
+	$(PERL) $< | $(CC) -E - > $@
+
 files:
 	$(PERL) $(TOP)/util/files.pl Makefile >> $(TOP)/MINFO
 
diff --git a/crypto/bn/asm/alpha-mont.pl b/crypto/bn/asm/alpha-mont.pl
index 4a7c63f6e484337756e19bb7aed29fab9bcc4f0d..a25f5cb085c07e10f6acd006221edbee7c2cd23b 100644
--- a/crypto/bn/asm/alpha-mont.pl
+++ b/crypto/bn/asm/alpha-mont.pl
@@ -51,8 +51,8 @@ $code=<<___;
 
 .globl	bn_mul_mont
 .align	5
+.ent	bn_mul_mont
 bn_mul_mont:
-	.ent	bn_mul_mont
 	lda	sp,-40(sp)
 	stq	ra,0(sp)
 	stq	s3,8(sp)
@@ -305,7 +305,7 @@ bn_mul_mont:
 
 .align	4
 .Lexit:	mov	fp,sp
-	#ldq	ra,0(sp)
+	/*ldq	ra,0(sp)*/
 	ldq	s3,8(sp)
 	ldq	s4,16(sp)
 	ldq	s5,24(sp)