diff --git a/src/plugins/server/main.ml b/src/plugins/server/main.ml index 7a82d0176eea15c6e5071ae1845962ed633c98ee..3ee3067e99a325a540c2c3215d768f36a80e8969 100644 --- a/src/plugins/server/main.ml +++ b/src/plugins/server/main.ml @@ -269,7 +269,7 @@ let communicate server = let pool = ref [] in Queue.iter (fun r -> pool := r :: !pool) server.q_out ; Queue.clear server.q_out ; - server.s_active <- Sigs.empty ; + server.s_signal <- Sigs.empty ; message.callback !pool ; Extlib.may raise error ; true