Spelling mistake.

2 files changed, 5 insertions, 2 deletions

diff --git a/CHANGES b/CHANGES
index 33afc413b7..198291a963 100644
--- a/CHANGES
+++ b/CHANGES
@@ -5,6 +5,9 @@
 
  Changes between 0.9.1c and 0.9.2
 
+  *) Spelling mistake in C version of CAST-128.
+     [Ben Laurie, reported by Jeremy Hylton <jeremy@cnri.reston.va.us>]
+
   *) Changes to the error generation code. The perl script err-code.pl 
      now reads in the old error codes and retains the old numbers, only
      adding new ones if necessary. It also only changes the .err files if new
diff --git a/crypto/cast/c_enc.c b/crypto/cast/c_enc.c
index 5e6ecb31f5..7d861de965 100644
--- a/crypto/cast/c_enc.c
+++ b/crypto/cast/c_enc.c
@@ -81,7 +81,7 @@ CAST_KEY *key;
 	E_CAST( 9,k,r,l,+,^,-);
 	E_CAST(10,k,l,r,^,-,+);
 	E_CAST(11,k,r,l,-,+,^);
-	if(!k->short_key)
+	if(!key->short_key)
 	    {
 	    E_CAST(12,k,l,r,+,^,-);
 	    E_CAST(13,k,r,l,^,-,+);
@@ -103,7 +103,7 @@ CAST_KEY *key;
 	l=data[0];
 	r=data[1];
 
-	if(!k->short_key)
+	if(!key->short_key)
 	    {
 	    E_CAST(15,k,l,r,+,^,-);
 	    E_CAST(14,k,r,l,-,+,^);