Client socket in karel

Hi all,

I have created a client socket that communicates with a program on my PC. It works fine. However, I want to close the socket after communication with

MSG_DISCO('C1:',Status)

I always get 67215 as status. A non zero value means that an error ocurred.
Any idea what goes wrong here ?

Thanks

Luc

ps my code to open socket is following routine :

ROUTINE C_Connect(Result : INTEGER)
VAR
entry:INTEGER

BEGIN
MSG_DISCO('C1:',ClientStatus)--CLOSE PORT BEFORE START
SET_FILE_ATR(ComFile_C,ATR_IA)
SET_VAR(entry,'*SYSTEM*','$HOSTC_CFG[1].$SERVER_PORT',10000,ClientStatus)--SETTING FILE AND PORT ATTRIBUTES--
MSG_CONNECT('C1:',ClientStatus)
DELAY(10)
IF Result = 0 THEN
OPEN FILE ComFile_C('RW','C1:')
ENDIF
Result = IO_STATUS(ComFile_C)
END C_Connect

Shame on me .... File was not closed
Thank You !

Best regards
Luc