Index: parley.scm
===================================================================
--- parley.scm	(revision 26522)
+++ parley.scm	(working copy)
@@ -374,8 +374,8 @@
     (#\x42 . ,(handle 'next-history))))
 
 (define (escape-sequence-handler-ref seq)
-  (and seq (or (alist-ref seq user-esc-sequences)
-               (alist-ref seq +escape-sequence-handlers+))))
+  (and seq (or (alist-ref (second seq) user-esc-sequences equal?)
+               (alist-ref (second seq) +escape-sequence-handlers+ equal?))))
 
 (define (refresh-line prompt port line pos offset)
   (let* ((cols (- (get-terminal-columns port)