diff --git a/g10/app-openpgp.c b/g10/app-openpgp.c
index a3a977b31..b51d4184d 100644
--- a/g10/app-openpgp.c
+++ b/g10/app-openpgp.c
@@ -1250,7 +1250,7 @@ get_public_key (app_t app, int keyno)
 	}
 
       err = retrieve_key_material (fp, hexkeyid, &m, &mlen, &e, &elen);
-      fclose (fp);
+      pclose (fp);
       if (err)
 	{
 	  log_error ("error while retrieving key material through pipe: %s\n",