1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c
index 5d46507dc77..ebc42e361ef 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2057,7 +2057,7 @@ read_escape (readcharfun, stringp)
    case 's':
      c = READCHAR;
-      if (c != '-')
+      if (stringp || c != '-')
        {
          UNREAD (c);
          return ' ';

diff --git a/src/lread.c b/src/lread.c index 5d46507dc77..ebc42e361ef 100644 --- a/src/lread.c +++ b/src/lread.c
@@ -2057,7 +2057,7 @@ read_escape (readcharfun, stringp)
2057		2057
2058	case 's':	2058	case 's':
2059	c = READCHAR;	2059	c = READCHAR;
2060	if (c != '-')	2060	if (stringp \|\| c != '-')
2061	{	2061	{
2062	UNREAD (c);	2062	UNREAD (c);
2063	return ' ';	2063	return ' ';