diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index ae9160c80..d67b70520 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -567,14 +567,11 @@
 
 ;;; Filtering & partitioning
 
-(define (remove pred list)
-  (filter (lambda (x) (not (pred x))) list))
-
 (define (partition! pred list)
   (partition pred list))		; XXX:optimize
 
 (define (remove! pred list)
-  (remove pred list))			; XXX:optimize
+  (filter! (lambda (x) (not (pred x))) list))
 
 ;;; Searching