diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs
index 50765abdd..070f83b49 100644
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveDataTypeable, CPP #-}
 
 import PGF (PGF)
 import qualified PGF
@@ -26,7 +26,11 @@ logFile = "pgf-error.log"
 main :: IO ()
 main = do stderrToFile logFile
           cache <- newCache PGF.readPGF
+#ifndef mingw32_HOST_OS
           runFastCGIConcurrent' forkIO 100 (handleErrors (handleCGIErrors (cgiMain cache)))
+#else
+          runFastCGI (handleErrors (handleCGIErrors (cgiMain cache)))
+#endif
 
 cgiMain :: Cache PGF -> CGI CGIResult
 cgiMain cache =