fixed bug in core.clj with port.