diff --git a/Cabal.cabal b/Cabal.cabal
index 7c00a51c467afd0f796bb065cb25c7c93869c908..2fc742366fd09186d6e21a5b963d9157ea82c5b7 100644
--- a/Cabal.cabal
+++ b/Cabal.cabal
@@ -49,35 +49,3 @@ Other-Modules:
         Distribution.Compat.Exception,
         Distribution.Compat.RawSystem
 Extensions: CPP
-
-executable: cabal-setup
-main-is: DefaultSetup.lhs
-hs-source-dir: src
-Other-Modules:
-        Distribution.Compat.ReadP,
-        Distribution.Extension,
-        Distribution.InstalledPackageInfo,
-        Distribution.License,
-        Distribution.Make,
-        Distribution.Package,
-        Distribution.PackageDescription,
-        Distribution.ParseUtils,
-        Distribution.PreProcess,
-        Distribution.PreProcess.Unlit,
-        Distribution.Setup,
-        Distribution.Simple,
-        Distribution.Simple.Build,
-        Distribution.Simple.Configure,
-        Distribution.Simple.GHCPackageConfig,
-        Distribution.Simple.Install,
-        Distribution.Simple.LocalBuildInfo,
-        Distribution.Simple.Register,
-        Distribution.Simple.SrcDist,
-        Distribution.Simple.Utils,
-        Distribution.Compat.FilePath,
-        Distribution.Version,
-        Distribution.GetOpt,
-        Distribution.Compat.Directory,
-        Distribution.Compat.Exception,
-        Distribution.Compat.RawSystem
-Extensions: CPP
diff --git a/src/Distribution/Simple/Configure.hs b/src/Distribution/Simple/Configure.hs
index d38d081269cdb76e602f98ce5a592b0fab33faa3..cc4b94b5b9c90d07faac9ff20683a48ccf00b446 100644
--- a/src/Distribution/Simple/Configure.hs
+++ b/src/Distribution/Simple/Configure.hs
@@ -253,7 +253,7 @@ system_default_prefix =
     csidl_PROGRAM_FILES = 0x0026
     long_path_size      = 1024
 
-foreign import stdcall unsafe "SHGetFolderPath" 
+foreign import stdcall unsafe "SHGetFolderPathW" 
             c_SHGetFolderPath :: Ptr () 
                               -> CInt 
                               -> Ptr ()