diff --git a/sm/ChangeLog b/sm/ChangeLog
index 7574e3350..240f18a16 100644
--- a/sm/ChangeLog
+++ b/sm/ChangeLog
@@ -1,3 +1,7 @@
+2002-04-18  Werner Koch  <wk@gnupg.org>
+
+	* certreqgen.c (gpgsm_genkey): Write status output on success.
+
 2002-04-15  Werner Koch  <wk@gnupg.org>
 
 	* gpgsm.c (main): Check ksba version.
diff --git a/sm/certreqgen.c b/sm/certreqgen.c
index 7b3a3a513..7a2f13ef7 100644
--- a/sm/certreqgen.c
+++ b/sm/certreqgen.c
@@ -667,6 +667,7 @@ gpgsm_genkey (CTRL ctrl, int in_fd, FILE *out_fp)
       goto leave;
     }
 
+  gpgsm_status (ctrl, STATUS_KEY_CREATED, "P");
   log_info ("certificate request created\n");
 
  leave: