Make shrinking segments work.
 [jmk] --rw-rw-r-- M 84741 glenda sys 13762 Dec 10 23:48 sys/src/9/port/segment.c