--- a/core/s2smanager.lua	Fri Oct 24 18:13:54 2008 +0100
+++ b/core/s2smanager.lua	Fri Oct 24 18:14:40 2008 +0100
@@ -179,4 +179,18 @@
 	end
 end
 
+function destroy_session(session)
+	(session.log or log)("info", "Destroying session");
+	if session.direction == "outgoing" then
+		hosts[session.to_host] = nil;
+	end
+	session.conn = nil;
+	session.disconnect = nil;
+	for k in pairs(session) do
+		if k ~= "trace" then
+			session[k] = nil;
+		end
+	end
+end
+
 return _M;
\ No newline at end of file