diff --git a/lisp/leim/quail/indian.el b/lisp/leim/quail/indian.el
index a30028329c4..06e40fed3e0 100644
--- a/lisp/leim/quail/indian.el
+++ b/lisp/leim/quail/indian.el
@@ -154,8 +154,8 @@ strings that describe how to insert CONSONANT."
   (setq consonants
      (sort consonants
          (lambda (x y)
-           (or (seq-position (car x) quail-tamil-itrans--consonant-order) 1000)
-           (or (seq-position (car y) quail-tamil-itrans--consonant-order) 1000))))
+           (< (or (seq-position (car x) quail-tamil-itrans--consonant-order) 1000)
+              (or (seq-position (car y) quail-tamil-itrans--consonant-order) 1000)))))
   (let ((virama #x0BCD)
 	clm)
     (with-temp-buffer