diff --git a/collects/srfi/1.ss b/collects/srfi/1.ss
index 77c839962c..83a260bcb6 100644
--- a/collects/srfi/1.ss
+++ b/collects/srfi/1.ss
@@ -7,7 +7,6 @@
                             s:map s:for-each
                             s:member
                             s:assoc)
-           (rename s:filter filter)
 	   (rename s:map map)
 	   (rename s:for-each for-each)
 	   (rename s:member member)
diff --git a/collects/srfi/1/list.ss b/collects/srfi/1/list.ss
index e16a1f74d7..ac8318b551 100644
--- a/collects/srfi/1/list.ss
+++ b/collects/srfi/1/list.ss
@@ -231,7 +231,8 @@
          (all-from-out "misc.ss")
          (all-from-out "fold.ss")
          (all-from-out "search.ss")
-         (all-from-out "filter.ss")
+         (except-out (all-from-out "filter.ss") s:filter)
+         (rename-out [s:filter filter])
          (all-from-out "delete.ss")
          (all-from-out "alist.ss")
          (all-from-out "lset.ss"))