1 files changed, 3 insertions, 0 deletions

diff --git a/src/fns.c b/src/fns.c
index 47457e44c8e..ff1c0495693 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -4953,6 +4953,9 @@ extract_data_from_object (Lisp_Object spec,
 #endif
     }
 
+  if (!STRINGP (object))
+    signal_error ("Invalid object argument",
+                  NILP (object) ? build_string ("nil") : object);
   return SSDATA (object);
 }