@@ -1895,11 +1895,11 @@
 
 	close(fd);
 
 	free(id);
 
-	return(TCL_OK);
+	return(0);
 }
 
 static int tclsystem_socket_unix__chan_read(ClientData id_p, char *buf, int bufsize, int *errorCodePtr) {
 	struct tclsystem_socket_unix__chan_id *id;
 	ssize_t read_ret;