diff --git a/extra/redis/assoc/assoc.factor b/extra/redis/assoc/assoc.factor
index 2830e93b25..e8bdbbb935 100644
--- a/extra/redis/assoc/assoc.factor
+++ b/extra/redis/assoc/assoc.factor
@@ -15,7 +15,7 @@ M: redis set-at [ redis-set drop ] with-redis ;
 
 M: redis delete-at [ redis-del drop ] with-redis ;
 
-M: redis clear-assoc [ "*" redis-keys [ redis-del drop ] each ] with-redis ;
+M: redis clear-assoc [ redis-flushdb drop ] with-redis ;
 
 M: redis equal? assoc= ;