diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 695083234..b9dfe1488 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+2003-03-12  Mikael Djurfeldt  <mdj@kvast.blakulla.net>
+
+	* slib.scm (identity): Removed.  (Provided by core.)
+
 2003-03-11  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
 
 	* debugger/command-loop.scm: Prefix all commands imported from
diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index 8b96989ee..fe936a9fb 100644
--- a/ice-9/slib.scm
+++ b/ice-9/slib.scm
@@ -1,6 +1,6 @@
 ;;;; slib.scm --- definitions needed to get SLIB to work with Guile
 ;;;;
-;;;;	Copyright (C) 1997, 1998, 2000, 2001, 2002 Free Software Foundation, Inc.
+;;;;	Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
 ;;;;
 ;;;; This file is part of GUILE.
 ;;;; 
@@ -47,7 +47,7 @@
   :export (slib:load slib:load-source defmacro:load
 	   implementation-vicinity library-vicinity home-vicinity
 	   scheme-implementation-type scheme-implementation-version
-	   output-port-width output-port-height identity array-indexes
+	   output-port-width output-port-height array-indexes
 	   make-random-state require slib:error slib:exit slib:warn slib:eval
 	   defmacro:eval logical:logand logical:logior logical:logxor
 	   logical:lognot logical:ash logical:logcount logical:integer-length
@@ -243,7 +243,6 @@
 
 (define (output-port-width . arg) 80)
 (define (output-port-height . arg) 24)
-(define (identity x) x)
 
 ;;; {array-for-each}
 (define (array-indexes ra)