X-Git-Url: http://git.kpe.io/?p=pubmed.git;a=blobdiff_plain;f=pubmed.lisp;h=1cdd1f6956fdca2b77fa92a57dd3e6ce524e1878;hp=3def005a566c604434489818476fe4774b7f3bec;hb=37b73fa1adf2726d62978195cded311f247fa949;hpb=8f8c17ab7068ef5991595d678d9d2cc767a8b5bf

diff --git a/pubmed.lisp b/pubmed.lisp
index 3def005..1cdd1f6 100644
--- a/pubmed.lisp
+++ b/pubmed.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Jun 2001
 ;;;;
-;;;; $Id: pubmed.lisp,v 1.6 2002/10/31 21:37:56 kevin Exp $
+;;;; $Id: pubmed.lisp,v 1.7 2002/11/06 19:36:53 kevin Exp $
 ;;;;
 ;;;; This file, part of cl-pubmed, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -89,7 +89,7 @@
 	     :reader pubmed-query-error-response))
   (:report (lambda (c stream)
 	     (format stream "A PubMed server error occurred.")
-	     (awhen (pubmed-server-query-response c)
+	     (awhen (pubmed-query-error-response c)
 		    (format stream " The server response was:~&~S" it)))))
   
 ;;; Article-Set and Article Classes