Index: /trunk/ccl/lib/lists.lisp
===================================================================
--- /trunk/ccl/lib/lists.lisp	(revision 247)
+++ /trunk/ccl/lib/lists.lisp	(revision 248)
@@ -170,8 +170,8 @@
 	     (head (cons nil nil))
 	     (tail head))
-	(declare (fixnum count) (list head tail) (dynamic-extent head))
+	(declare (fixnum count) (cons head tail) (dynamic-extent head))
 	;; Return a list of the first COUNT elements of list
 	(dotimes (i count (cdr head))
-	  (setq tail (rplacd tail (cons (pop list) nil))))))))
+	  (setq tail (cdr (rplacd tail (cons (pop list) nil)))))))))