diff --git a/src/Network/XmlPush/HttpPull/Tls/Server.hs b/src/Network/XmlPush/HttpPull/Tls/Server.hs
--- a/src/Network/XmlPush/HttpPull/Tls/Server.hs
+++ b/src/Network/XmlPush/HttpPull/Tls/Server.hs
@@ -40,18 +40,13 @@
 	g <- liftBase (cprgCreate <$> createEntropyPool :: IO SystemRNG)
 	(inc, otc) <- (`run` g) $ do
 		t <- open h cs kcs mca
-		runXml t ip ep $ checkName t gn
+		runXml t ip ep $ checkNameP t gn
 	return $ HttpPullTlsSv (fromTChan inc) (toTChan otc)
 
-checkName :: HandleLike h => TlsHandle h g -> (XmlNode -> Maybe String) ->
+checkNameP :: HandleLike h => TlsHandle h g -> (XmlNode -> Maybe String) ->
 	Pipe XmlNode XmlNode (TlsM h g) ()
-checkName t gn = (await >>=) . maybe (return ()) $ \n -> do
-	ok <- maybe (return True) (lift . svCheckName t) $ gn n
+checkNameP t gn = (await >>=) . maybe (return ()) $ \n -> do
+	ok <- maybe (return True) (lift . checkName t) $ gn n
 	unless ok $ error "checkName: bad client name"
 	yield n
-	checkName t gn
-
-svCheckName :: HandleLike h => TlsHandle h g -> String -> TlsM h g Bool
-svCheckName t n = do
-	ns <- getNames t
-	return $ n `elem` ns
+	checkNameP t gn
diff --git a/xml-push.cabal b/xml-push.cabal
--- a/xml-push.cabal
+++ b/xml-push.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>= 1.8
 
 name:		xml-push
-version:	0.0.0.1
+version:	0.0.0.2
 stability:	Experimenmtal
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>
@@ -100,7 +100,7 @@
 source-repository	this
     type:	git
     location:	git://github.com/YoshikuniJujo/xml-push.git
-    tag:	xml-push-0.0.0.1
+    tag:	xml-push-0.0.0.2
 
 library
     hs-source-dirs:	src