Fixed an error in the close-port function.
Authored by: kcozens 2013-12-03
(Porting from http://sourceforge.net/p/tinyscheme/code/100/)