diff --git a/scd/app-openpgp.c b/scd/app-openpgp.c
index 475d84433..7f1ec43d6 100644
--- a/scd/app-openpgp.c
+++ b/scd/app-openpgp.c
@@ -1451,7 +1451,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",