Mark port as active when writing is partially done
Mark port as active when writing is partially done

This avoid poor writing performance in some cases

Pointillistic/rebol-lang,Pointillistic/rebol-lang,zsx/r3,Pointillistic/rebol-lang,Pointillistic/rebol-lang,zsx/r3,zsx/r3,zsx/r3