Index: src/hattrans/TraceTrans.hs
===================================================================
RCS file: /home/cvs/root/hat/src/hattrans/TraceTrans.hs,v
retrieving revision 1.65
diff -u -r1.65 TraceTrans.hs
--- src/hattrans/TraceTrans.hs	29 Jun 2004 12:52:06 -0000	1.65
+++ src/hattrans/TraceTrans.hs	30 Jun 2004 14:47:04 -0000
@@ -207,6 +207,8 @@
   : case arity id of
       Just a | a > 0 -> [EntityVar pos (nameTraceInfoGlobalVar id)
                         ,EntityVar pos (nameWorker id)]
+      Just (-1)      -> [EntityVar pos (nameTraceInfoGlobalVar id)
+                        ,EntityVar pos (nameShare id)]
       _              -> []
 tEntity traced (EntityConClsAll pos id) | hasValueInfo id = []
 tEntity traced (EntityConClsAll pos id) =