diff --git a/scheme/lib/pop3.scm b/scheme/lib/pop3.scm
index 7b310f8..32824fc 100644
--- a/scheme/lib/pop3.scm
+++ b/scheme/lib/pop3.scm
@@ -242,8 +242,8 @@
 	(match:substring match 1)
         (let ((match2 (regexp-search (rx (posix-string "^-ERR(.*)")) response)))
 	  (if match2
-	      (signal '-ERR (match:substring match2 1) command)
-	      (signal '-ERR response command))))))
+	      (signal 'pop3-error (match:substring match2 1) command)
+	      (signal 'pop3-error response command))))))
 
 
 (define (pop3-log connection line)