(mscript__char_list): Fix finding a char-list element.

diff --git a/src/language.c b/src/language.c
index 2798cbb..785d5a0 100644 (file)
--- a/src/language.c
+++ b/src/language.c
@@ -209,6 +209,8 @@ mscript__char_list (MSymbol name)
 
   if (plist                    /* script name */
       && (plist = MPLIST_NEXT (plist)) /* language list */
+      && ! MPLIST_TAIL_P (plist)
+      && (plist = MPLIST_NEXT (plist)) /* char list */
       && MPLIST_PLIST_P (plist))
     return MPLIST_PLIST (plist);
   return NULL;