diff --git a/Network/TLS/Extra/Certificate.hs b/Network/TLS/Extra/Certificate.hs
--- a/Network/TLS/Extra/Certificate.hs
+++ b/Network/TLS/Extra/Certificate.hs
@@ -39,7 +39,8 @@
 
 #if defined(NOCERTVERIFY)
 
-import System.IO (hPutStrLn, stderr)
+import System.IO (hPutStrLn, stderr, hIsTerminalDevice)
+import Control.Monad (when)
 
 #endif
 
@@ -59,9 +60,12 @@
  - for now, print a big fat warning (better than nothing) and returns true  -}
 certificateVerifyChain_ :: [X509] -> IO TLSCertificateUsage
 certificateVerifyChain_ _ = do
-	hPutStrLn stderr "****************** certificate verify chain doesn't yet work on your platform **********************"
-	hPutStrLn stderr "please consider contributing to the certificate package to fix this issue"
-	return CertificateUsageAccept
+    wvisible <- hIsTerminalDevice stderr
+    when wvisible $ do
+        hPutStrLn stderr "tls-extra:Network.TLS.Extra.Certificate"
+        hPutStrLn stderr "****************** certificate verify chain doesn't yet work on your platform **********************"
+        hPutStrLn stderr "please consider contributing to the certificate package to fix this issue"
+    return CertificateUsageAccept
 
 #else
 certificateVerifyChain_ :: [X509] -> IO TLSCertificateUsage
diff --git a/Network/TLS/Extra/Connection.hs b/Network/TLS/Extra/Connection.hs
--- a/Network/TLS/Extra/Connection.hs
+++ b/Network/TLS/Extra/Connection.hs
@@ -20,8 +20,19 @@
 import Network.Socket
 import Network.TLS
 
--- | open a TCP client connection to a destination and port description (number or name)
+-- | @connectionClient host port param rng@ opens a TCP client connection
+-- to a destination host and port description (number or name). For
+-- example:
 -- 
+-- @
+-- import Network.TLS.Extra
+-- import Crypto.Random
+-- ...
+--   conn <- (newGenIO::IO SystemRandom) >>= connectionClient 192.168.2.2 7777 defaultParams g
+-- @
+--
+-- will make a new RNG (using system entropy) and connect to IP 192.168.2.2
+-- on port 7777.
 connectionClient :: CryptoRandomGen g => String -> String -> TLSParams -> g -> IO (TLSCtx Handle)
 connectionClient s p params rng = do
 	pn <- if and $ map isDigit $ p
diff --git a/tls-extra.cabal b/tls-extra.cabal
--- a/tls-extra.cabal
+++ b/tls-extra.cabal
@@ -1,5 +1,5 @@
 Name:                tls-extra
-Version:             0.4.7
+Version:             0.4.7.1
 Description:
    a set of extra definitions, default values and helpers for tls.
 License:             BSD3