$NetBSD: patch-ag,v 1.2 2005/05/01 22:55:07 kristerw Exp $

--- src/compiler98/RenameLib.hs	22 Dec 2004 12:58:35 -0000	1.31
+++ src/compiler98/RenameLib.hs	11 Apr 2005 14:24:49 -0000
@@ -216,7 +216,7 @@
 	      (coni:_) ->
 		 case (ntI . dropJust . lookupAT st ) coni of
   	           (NewType _ [] _ [NTcons c _ _,res]) -> (synType,(u,c):newType)
-  	           (NewType _ [] _ [NTvar v _,res]) -> (synType,(u,v):newType)
+  	           (NewType _ [] _ [NTvar v _,res]) -> (synType,      newType)
   	           (NewType _ [] _ [NTapp v1 v2,res]) -> (synType,newType)
 			-- ^ MW hack: omits potential circularity check!
   	           (NewType _ [] _ (_:_:_)) ->