Added *put-port-open? functions