[Haskell-cafe] socket TChan problem

Hi I try to write a program that reads from a socket and communicates the result over a TChan and writes it to stdout. Somehow I can't seem to get it right, the result is only printed when I send ETX on the socket. Attached is a sample program that shows the behvaviour. Any hints on where my error is or how I could debug such a problem is appreciated. regards Stefan