diff --git a/crypto/sha/asm/sha512-ppc.pl b/crypto/sha/asm/sha512-ppc.pl
index 06486555e50912f25af282271ca94ac91e2ca98c..d6a86c7325d4d91bf38b24aa19cc5090e9b65b2f 100755
--- a/crypto/sha/asm/sha512-ppc.pl
+++ b/crypto/sha/asm/sha512-ppc.pl
@@ -383,7 +383,7 @@ $code.=<<___ if ($SZ==8 && $LITTLE_ENDIAN);
 	rlwimi	$t0,$a0,24,0,7
 	 rlwimi	@X[$i],$a1,24,0,7
 	rlwimi	$t0,$a0,24,16,23
-	 rlwimi	@X[$i],$a1,25,16,23
+	 rlwimi	@X[$i],$a1,24,16,23
 	insrdi	@X[$i],$t0,32,0
 ___
 	&ROUND_00_15($i,@V);