diff --git a/core/XmppType.hs b/core/XmppType.hs
--- a/core/XmppType.hs
+++ b/core/XmppType.hs
@@ -171,8 +171,8 @@
 data Jid = Jid BS.ByteString BS.ByteString (Maybe BS.ByteString) deriving (Eq, Show)
 
 fromJid :: Jid -> BS.ByteString
-fromJid (Jid a d r) = a `BS.append` "@" `BS.append` d `BS.append`
-	maybe "" ("/" `BS.append`) r
+fromJid (Jid a d r) = (if BS.null a then "" else a `BS.append` "@")
+	`BS.append` d `BS.append` maybe "" ("/" `BS.append`) r
 
 toJid :: BS.ByteString -> Jid
 toJid j = case rst of
diff --git a/xmpipe.cabal b/xmpipe.cabal
--- a/xmpipe.cabal
+++ b/xmpipe.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>= 1.8
 
 name:		xmpipe
-version:	0.0.0.3
+version:	0.0.0.4
 stability:	Experimental
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>