# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1130091587 0
# Node ID a4fe475f3c8b84d5c90f508404d3915bce4c9306
# Parent  8ad92df59512ed0479bd610c5e4ec156facf33e2
(doctor-doc): Don't say "psychiatrist".
(doctor-symptoms): Likewise.

diff -r 8ad92df59512 -r a4fe475f3c8b lisp/play/doctor.el
--- a/lisp/play/doctor.el	Sun Oct 23 18:18:11 2005 +0000
+++ b/lisp/play/doctor.el	Sun Oct 23 18:19:47 2005 +0000
@@ -954,7 +954,7 @@
 		      (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 @@
 	(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)