diff --git a/g10/ChangeLog b/g10/ChangeLog
index 2a801f962..95b6a8683 100644
--- a/g10/ChangeLog
+++ b/g10/ChangeLog
@@ -1,3 +1,9 @@
+2001-04-24  Werner Koch  <wk@gnupg.org>
+
+	* build-packet.c (do_secret_key): Ugly, we wrote a zero
+	instead of the calucalted ndays.  Thanks to M Taylor for complaining
+	about a secret key import problem.
+
 2001-04-23  Werner Koch  <wk@gnupg.org>
 
 	* hkp.c (hkp_ask_import): Allow to specify a port number for the 
diff --git a/g10/build-packet.c b/g10/build-packet.c
index a0493efd2..1e3776186 100644
--- a/g10/build-packet.c
+++ b/g10/build-packet.c
@@ -353,7 +353,7 @@ do_secret_key( IOBUF out, int ctb, PKT_secret_key *sk )
 	    ndays = (u16)((sk->expiredate - sk->timestamp) / 86400L);
 	else
 	    ndays = 0;
-	write_16(a, 0 );
+	write_16(a, ndays);
     }
     iobuf_put(a, sk->pubkey_algo );
     nskey = pubkey_get_nskey( sk->pubkey_algo );