diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 7e18deba5..bc81b6403 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,5 +1,7 @@
 2003-03-12  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
 
+	* slib.scm (logical:ipow-by-squaring): Removed.
+
 	* boot-9.scm (ipow-by-squaring): Removed.
 	(default-duplicate-binding-handler): Set default to
 	'(replace warn-override-core warn last)
diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index f028f80dc..0a1b42559 100644
--- a/ice-9/slib.scm
+++ b/ice-9/slib.scm
@@ -87,7 +87,6 @@
 (define logical:integer-length integer-length)
 (define logical:bit-extract bit-extract)
 (define logical:integer-expt integer-expt)
-(define logical:ipow-by-squaring ipow-by-squaring)
 (define slib:eval-load eval-load)
 (define slib:tab #\tab)
 (define slib:form-feed #\page)