we must always clear both the 'EXIT' and 'DOWN' message

1 files changed, 7 insertions, 7 deletions

diff --git a/src/supervisor2.erl b/src/supervisor2.erl
index 75c4bc11..edd43ec0 100644
--- a/src/supervisor2.erl
+++ b/src/supervisor2.erl
@@ -715,13 +715,13 @@ monitor_child(Pid) ->
     receive
 	%% If the child dies before the unlik we must empty
 	%% the mail-box of the 'EXIT'-message and the 'DOWN'-message.
-	{'EXIT', Pid, Reason} -> 
-            case Reason of
-                normal -> ok;
-                _      -> receive
-                              {'DOWN', _, process, Pid, _} ->
-                                  {error, Reason}
-                          end
+	{'EXIT', Pid, Reason} ->
+            receive
+                {'DOWN', _, process, Pid, _} ->
+                    case Reason of
+                        normal -> ok;
+                        _      -> {error, Reason}
+                    end
             end
     after 0 -> 
 	    %% If a naughty child did unlink and the child dies before