branch on equal is beql, not beq...
diff --git a/crypto/bn/asm/vms.mar b/crypto/bn/asm/vms.mar
index 5eab242..465f277 100644
--- a/crypto/bn/asm/vms.mar
+++ b/crypto/bn/asm/vms.mar
@@ -279,7 +279,7 @@
 	xorl2	#^X80000000,r7	; fixup a21 so highest bit is 1
 2$:
 	tstl	r9
-	beq	666$		; Uh-oh, the divisor is 0...
+	beql	666$		; Uh-oh, the divisor is 0...
 	bgtr	3$
 	xorl2	#^X80000000,r9	; fixup b2 so highest bit is 0
 	incl	r8		; b' = 1