diff --git a/agent/ChangeLog b/agent/ChangeLog
index 5c3143c71..3c1aa54df 100644
--- a/agent/ChangeLog
+++ b/agent/ChangeLog
@@ -1,5 +1,8 @@
 2010-05-12  Werner Koch  <wk@g10code.com>
 
+	* preset-passphrase.c (forget_passphrase): Actually implement
+	this.  Fixes bug#1198.
+
 	* gpg-agent.c (handle_tick): Do not print die message with option -q.
 
 2010-05-11  Werner Koch  <wk@g10code.com>
diff --git a/agent/preset-passphrase.c b/agent/preset-passphrase.c
index 8e3b3e2c5..72de91b7c 100644
--- a/agent/preset-passphrase.c
+++ b/agent/preset-passphrase.c
@@ -189,11 +189,15 @@ forget_passphrase (const char *keygrip)
 
   rc = asprintf (&line, "CLEAR_PASSPHRASE %s\n", keygrip);
   if (rc < 0)
+    rc = gpg_error_from_syserror ();
+  else
+    rc = map_spwq_error (simple_query (line));
+  if (rc)
     {
-      log_error ("clearing passphrase failed: %s\n",
-		 gpg_strerror (gpg_error_from_syserror ()));
+      log_error ("clearing passphrase failed: %s\n", gpg_strerror (rc));
       return;
     }
+
   xfree (line);
 }