diff --git a/list.rkt b/list.rkt
index 4a58a0c..3966ff5 100644
--- a/list.rkt
+++ b/list.rkt
@@ -15,7 +15,7 @@
     [else (cons (take xs len) (list->slices (drop xs len) len))]))
 
 
-(define+provide/contract (splitf-at* xs split-test)
+(define+provide/contract (filter-split xs split-test)
   (list? predicate/c . -> . (listof list?))
   (let loop ([xs (trimf xs split-test)] [acc '()]) 
     (if (empty? xs)