     :soundeffect          (write-packet-soundeffect conn payload)
     :newinvalidstate      (write-packet-newinvalidstate conn payload)
     :openwindow           (write-packet-openwindow conn payload)
+    :closewindow          (write-packet-closewindow conn payload)
 
     )
   (flushc conn))

    :inventorytype (-read-byte conn)
    :windowtitle (-read-string8 conn)
    :numberofslots (-read-byte conn)))


; Reading Wrappers -----------------------------------------------------------------

        :newinvalidstate           (read-packet-newinvalidstate conn)
        :thunderbolt               (read-packet-thunderbolt conn)
        :openwindow                (read-packet-openwindow conn)
        :closewindow               (read-packet-closewindow conn)

        :else (str "UNKNOWN PACKET TYPE: " packet-id)
        ))
