Index: ghc/compiler/main/SysTools.lhs
===================================================================
RCS file: /home/cvs/root/fptools/ghc/compiler/main/SysTools.lhs,v
retrieving revision 1.111
diff -c -r1.111 SysTools.lhs
*** ghc/compiler/main/SysTools.lhs	9 Jan 2004 12:41:13 -0000	1.111
--- ghc/compiler/main/SysTools.lhs	27 Jan 2004 15:49:56 -0000
***************
*** 804,810 ****
  translate str@('"':_) = str -- already escaped.
  translate str = '"' : foldr escape "\"" str
    where escape '"'  str = '\\' : '"'  : str
- 	escape '\\' str = '\\' : '\\' : str
  	escape c    str = c : str
  
  foreign import ccall "rawSystem" unsafe
--- 804,809 ----
Index: libraries/base/System/Cmd.hs
===================================================================
RCS file: /home/cvs/root/fptools/libraries/base/System/Cmd.hs,v
retrieving revision 1.14
diff -c -r1.14 Cmd.hs
*** libraries/base/System/Cmd.hs	17 Dec 2003 17:15:12 -0000	1.14
--- libraries/base/System/Cmd.hs	27 Jan 2004 15:49:56 -0000
***************
*** 113,119 ****
  translate str@('"':_) = str -- already escaped.
  translate str = '"' : foldr escape "\"" str
    where escape '"'  str = '\\' : '"'  : str
- 	escape '\\' str = '\\' : '\\' : str
  	escape c    str = c : str
  
  foreign import ccall unsafe "rawSystem"
--- 113,118 ----