(textget): Ignore category prop if not a symbol.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/intervals.c b/src/intervals.c
index 67ac392e6e5..2ebc8e3cdf8 100644
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1558,7 +1558,11 @@ textget (plist, prop)
       if (EQ (prop, tem))
         return Fcar (Fcdr (tail));
       if (EQ (tem, Qcategory))
-        fallback = Fget (Fcar (Fcdr (tail)), prop);
+        {
+          tem = Fcar (Fcdr (tail));
+          if (SYMBOLP (tem))
+            fallback = Fget (tem, prop);
+        }
     }
 
   return fallback;