RTS failing with removeThreadFromDeQueue: not found message

Under certain circumstances I'm facing RTS error, this happens when one thread is reading socket and another one closes it. Seems like that it happens when smth else is involved as I failed to trim this example

Error that I see:

% ./test
nid://127.0.0.1:8080:0
1
test: internal error: removeThreadFromDeQueue: not found
    (GHC version 7.10.1 for x86_64_unknown_linux)
    Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug
zsh: abort      ./test

Trac metadata

Trac field	Value
Version	7.10.1
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Compiler
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture

changed weight to 5

added Tbug Trac import labels

Attached file test.hs ($1102).

example program

assigned to @trofi

Found a bug in excessive dequeueing. Fix is on the way.

changed milestone to %7.10.2

Trac metadata

Trac field	Value
Differential revisions	→ D1024

Trac metadata

Trac field	Value
TypeOfFailure	OtherFailure → RuntimeCrash

added runtime crash label

mentioned in commit 5857e0af

closed

Trac metadata

Trac field	Value
Resolution	Unresolved → ResolvedFixed

reopened

changed milestone to %7.10.3

added 1 deleted label

mentioned in issue #10629 (closed)

closed

This has been merged to ghc-7.10.

removed 1 deleted label

added Pnormal label