diff --git a/ghc/lib/std/PrelBase.lhs b/ghc/lib/std/PrelBase.lhs
index d283d590396ab221703a884f691711fad571af99..092d4dfd25d6808436b8f2fae93597285f6eaf08 100644
--- a/ghc/lib/std/PrelBase.lhs
+++ b/ghc/lib/std/PrelBase.lhs
@@ -759,7 +759,7 @@ showList__ showx []     = showString "[]"
 showList__ showx (x:xs) = showChar '[' . showx x . showl xs
   where
     showl []     = showChar ']'
-    showl (x:xs) = showString ", " . showx x . showl xs
+    showl (x:xs) = showChar ',' . showx x . showl xs
 
 showSpace :: ShowS
 showSpace = {-showChar ' '-} \ xs -> ' ' : xs
diff --git a/ghc/lib/std/PrelTup.lhs b/ghc/lib/std/PrelTup.lhs
index daccfb80a2a0af66a4311bb93a3a146a864c9c5d..64307ff9f0039209c94c66e2b3f4e3fde0455da9 100644
--- a/ghc/lib/std/PrelTup.lhs
+++ b/ghc/lib/std/PrelTup.lhs
@@ -86,29 +86,29 @@ data (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) a b c d e f g h i j k l m n o p q r
 
 \begin{code}
 instance  (Show a, Show b) => Show (a,b)  where
-    showsPrec p (x,y) = showChar '(' . shows x . showString ", " .
+    showsPrec p (x,y) = showChar '(' . shows x . showChar ',' .
                                        shows y . showChar ')'
     showList	= showList__ (showsPrec 0) 
 
 instance (Show a, Show b, Show c) => Show (a, b, c) where
-    showsPrec p (x,y,z) = showChar '(' . showsPrec 0 x . showString ", " .
-					 showsPrec 0 y . showString ", " .
+    showsPrec p (x,y,z) = showChar '(' . showsPrec 0 x . showChar ',' .
+					 showsPrec 0 y . showChar ',' .
 					 showsPrec 0 z . showChar ')'
     showList	= showList__ (showsPrec 0) 
 
 instance (Show a, Show b, Show c, Show d) => Show (a, b, c, d) where
-    showsPrec p (w,x,y,z) = showChar '(' . showsPrec 0 w . showString ", " .
-					   showsPrec 0 x . showString ", " .
-					   showsPrec 0 y . showString ", " .
+    showsPrec p (w,x,y,z) = showChar '(' . showsPrec 0 w . showChar ',' .
+					   showsPrec 0 x . showChar ',' .
+					   showsPrec 0 y . showChar ',' .
 					   showsPrec 0 z . showChar ')'
 
     showList	= showList__ (showsPrec 0) 
 
 instance (Show a, Show b, Show c, Show d, Show e) => Show (a, b, c, d, e) where
-    showsPrec p (v,w,x,y,z) = showChar '(' . showsPrec 0 v . showString ", " .
-					     showsPrec 0 w . showString ", " .
-					     showsPrec 0 x . showString ", " .
-					     showsPrec 0 y . showString ", " .
+    showsPrec p (v,w,x,y,z) = showChar '(' . showsPrec 0 v . showChar ',' .
+					     showsPrec 0 w . showChar ',' .
+					     showsPrec 0 x . showChar ',' .
+					     showsPrec 0 y . showChar ',' .
 					     showsPrec 0 z . showChar ')'
     showList	= showList__ (showsPrec 0) 
 \end{code}