1 files changed, 2 insertions, 1 deletions

diff --git a/src/Network/UPNP.hs b/src/Network/UPNP.hs
index ed6b4777..f053369f 100644
--- a/src/Network/UPNP.hs
+++ b/src/Network/UPNP.hs
@@ -6,6 +6,7 @@ import Network.Socket
 import System.Directory
 import System.IO
 import System.Process  as Process
+import DPut
 
 protocols :: SocketType -> [String]
 protocols Stream   = ["tcp"]
@@ -35,5 +36,5 @@ requestPorts description binds = do
                 phandle <- spawnProcess upnpc $ "-e": description : "-r" : requests
                 return $ Just phandle
             else do
-                hPutStrLn stderr $ "Warning: unable to find miniupnpc client at "++upnpc++"."
+                dput XMisc $ "Warning: unable to find miniupnpc client at "++upnpc++"."
                 bail