From e4796c8e518baf701c45eec012cf323aaebaf6cb Mon Sep 17 00:00:00 2001
From: "wojciech.meyer" <wojciech.meyer@gmail.com>
Date: Wed, 1 Aug 2012 01:51:24 +0200
Subject: [PATCH] car $ cdr -> cadr

Ignore-this: 2b5aa46e42282ee30710daaf8d735116

darcs-hash:20120731235124-33bd9-9fd2bf3a358e2ed54eac23aaa56df50ece816004
---
 src/top/utop.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/top/utop.el b/src/top/utop.el
index d7cc985..80a9c8c 100644
--- a/src/top/utop.el
+++ b/src/top/utop.el
@@ -504,7 +504,7 @@ it is started."
       (let ((offsets (split-string argument "," t)))
         (while offsets
           (let ((a (string-to-number (car offsets)))
-                (b (string-to-number (car (cdr offsets)))))
+                (b (string-to-number (cadr offsets))))
             (add-text-properties (+ utop-prompt-max a) (+ utop-prompt-max b) '(face utop-error))
             (setq offsets (cdr (cdr offsets))))))
       ;; Make everything read-only