diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
index 888332dc1f..42682154cd 100644
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -117,7 +117,7 @@ M: irc-listener to-listener ( message irc-listener -- )
     with filter ;
 
 : remove-participant-from-all ( nick -- )
-    dup listeners-with-participant [ delete-at ] with each ;
+    dup listeners-with-participant [ participants>> delete-at ] with each ;
 
 : add-participant ( mode nick channel -- )
     listener> [ participants>> set-at ] [ 2drop ] if* ;