[cl-xmpp-cvs] CVS cl-xmpp

[eenge]

Update of /project/cl-xmpp/cvsroot/cl-xmpp
In directory common-lisp:/tmp/cvs-serv30108

Modified Files:
	cl-xmpp.lisp 
Log Message:
adding patch from david, thanks\!

--- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp	2005/12/31 20:15:06	1.24
+++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp	2006/01/23 16:41:11	1.25
@@ -1,4 +1,4 @@
-;;;; $Id: cl-xmpp.lisp,v 1.24 2005/12/31 20:15:06 eenge Exp $
+;;;; $Id: cl-xmpp.lisp,v 1.25 2006/01/23 16:41:11 eenge Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -316,7 +316,12 @@
 (defun read-stanza (connection)
   (unless (server-xstream connection)
     (setf (server-xstream connection)
-          (cxml:make-xstream (make-slow-stream (server-stream connection)))))
+          (cxml:make-xstream (make-slow-stream (server-stream connection))
+			     :name
+			     (cxml::make-stream-name
+			      :entity-name "stanza"
+			      :entity-kind :main
+			      :uri nil))))
   (force-output (server-stream connection))
   (catch 'stanza
     (let ((cxml::*namespace-bindings*