diff --git a/src/modules/files/socket.c b/src/modules/files/socket.c
index a193aac0e297ae591501b4d40f58b216344a42c8..87a8a63e3424e864efe782deb0020ae9a7a791e0 100644
--- a/src/modules/files/socket.c
+++ b/src/modules/files/socket.c
@@ -256,7 +256,8 @@ static void port_create(INT32 args)
       if(strcmp("stdin",sp[-args].u.string->str))
 	error("port->create() called with string other than 'stdin'\n");
 
-      THIS->fd=0;	/* FIXME: Shouldn't there be a close() here? */
+      do_close(THIS,fp->current_object);
+      THIS->fd=0;
 
       if(listen(THIS->fd, 16384) < 0)
       {