X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Friece-mcat.el;h=99cfc9ec55a1231134d779a953d5b4d5320d6ef4;hb=8af515a8404ddf563865275bbc26940182e8ac61;hp=e1b5cbbe56b7e83ce530a1e126e11582985b09e3;hpb=a13957ec5bdf2504805917af5fcfde007c30a773;p=riece

diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el
index e1b5cbb..99cfc9e 100644
--- a/lisp/riece-mcat.el
+++ b/lisp/riece-mcat.el
@@ -38,7 +38,7 @@
     (while pointer
       (if (equal (car pointer)
 		 (nth 1 pointer))
-	  (setcdr pointer (nth 2 pointer))
+	  (setcdr pointer (nthcdr 2 pointer))
 	(unless (assoc (car pointer) alist)
 	  (setq alist (cons (list (car pointer)) alist))))
       (setq pointer (cdr pointer)))