Index: TraceTrans.hs
===================================================================
RCS file: /home/cvs/root/hat/src/hattrans/TraceTrans.hs,v
retrieving revision 1.73
diff -u -r1.73 src/hattrans/TraceTrans.hs
--- src/hattrans/TraceTrans.hs	27 Sep 2004 11:15:51 -0000	1.73
+++ src/hattrans/TraceTrans.hs	29 Jun 2005 12:34:34 -0000
@@ -701,13 +701,14 @@
   (Fun [pat'] (Unguarded exp') decls',altConsts) = 
      tFun traced False parent failContinuation (Fun [pat] rhs decls)
   useSR = ExpVar pos (nameSR firstId)
+  useParent = ExpVar pos nameParent
 
   useDef :: (Pos,TraceId) -> Decl TokenId
   useDef (pos,id) =
     DeclFun pos (nameTransLetVar id)
-      [Fun [useSR,parent]
+      [Fun [useSR,useParent]
         (Unguarded (ExpApplication pos
-          [combConstUse pos traced,useSR,parent,ExpVar pos (nameShare id)]))
+          [combConstUse pos traced,useSR,useParent,ExpVar pos (nameShare id)]))
         noDecls]
 
   projDef :: (Pos,TraceId) -> Decl TokenId