Tcp 客户端断开连接会导致超出范围的错误

使用，我尝试在Rebol2中创建这样的服务器：

listen: open tcp://:9999
waitports: [listen]
forever [
data: wait waitports
either same? data listen [
        active-port: first listen
        append waitports active-port
][
        incoming-from-remote: first data
        print incoming-from-remote
    ]     
]

使用客户端，我可以通过插入来连接和发送消息，但当我从客户端关闭端口时，服务器上出现以下错误：

** Script Error: Out of range or past end
** Where: forever
** Near: incoming-from-remote: first data
print incoming-from-remote

---

我怎样才能更好地处理这个问题呢？

把它放在你的任意一块

either any [ 
   not incoming-from-remote: copy data
   "" = incoming-from-remote
] [
   attempt [
      close data
      remove find waitports data
   ]
] [
  print ..
]