# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 883210560 0
# Node ID 376e39d748b9cdf78eed6d2879f999dc4013b206
# Parent  4409f95651d18718698361cc367f618d72ce727b
(Fread_command, Fread_variable): Fix previous change.

diff -r 4409f95651d1 -r 376e39d748b9 src/minibuf.c
--- a/src/minibuf.c	Fri Dec 26 22:51:41 1997 +0000
+++ b/src/minibuf.c	Sat Dec 27 08:16:00 1997 +0000
@@ -761,7 +761,7 @@
   if (NILP (default_value))
     default_string = Qnil;
   else if (SYMBOLP (default_value))
-    default_string = XSYMBOL (default_value)->name;
+    XSETSTRING (default_string, XSYMBOL (default_value)->name);
   else
     default_string = default_value;
     
@@ -796,7 +796,7 @@
   if (NILP (default_value))
     default_string = Qnil;
   else if (SYMBOLP (default_value))
-    default_string = XSYMBOL (default_value)->name;
+    XSETSTRING (default_string, XSYMBOL (default_value)->name);
   else
     default_string = default_value;