diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 6cb9abc0e..bc076d5e2 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -487,14 +487,6 @@
 	     n
 	     (loop (+ n 1) (cdr l))))))
 
-(define (make-list n . init)
-  (if (pair? init) (set! init (car init)))
-  (let loop ((answer '())
-	     (n n))
-    (if (<= n 0)
-	answer
-	(loop (cons init answer) (- n 1)))))
-
 
 
 ;;; {and-map and or-map}