(doctor-doc): Don't say "psychiatrist".

(doctor-symptoms): Likewise.

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index ea502646e617e5fe8a89f01a5c0574312f5f1f8d..899bb34cabf6a0d9462c05fc330dd9314e6209f4 100644 (file)
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -954,7 +954,7 @@ Otherwise call the Doctor to parse preceding sentence."
                      (doctor-type '(are you (doc$ afraidof) that \?)))
                     ((zerop (random 2))
                      (doctor-type '(don\'t tell me what to do \. i am the
-                                           psychiatrist here!))
+                                           doctor here!))
                      (doctor-rthing))
                     (t
                      (doctor-type '((doc$ whysay) that i shouldn\'t
@@ -1552,8 +1552,8 @@ Hack on previous word, setting global variable OWNER to correct result."
        (t (doctor-type '((doc$ whysay)(list subj verb obj))))))
 
 (defun doctor-symptoms ()
-  (doctor-type '((doc$ maybe) you should consult a doctor of medicine\,
-                i am a psychiatrist \.)))
+  (doctor-type '((doc$ maybe) you should consult a medical doctor\;
+                i am a psychotherapist. \.)))
 
 (defun doctor-hates ()
   (doctor-svo sent found 1 t)