diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index b3f7878..e8ce024 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -574,6 +574,10 @@ relevant to POS."
                         'help-echo
                         "mouse-2, RET: show this character in its character set")
                     str)))
+              ,@(let ((script (char-table-range char-script-table char)))
+                  (if script
+                      (list (list "script"
+                                  (symbol-name script)))))
               ("syntax"
                ,(let ((syntax (syntax-after pos)))
                   (with-temp-buffer