X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fruntime%2Fgum%2FPack.lc;h=26891b8b1108678774ebbbb40f8431237b02574f;hp=f4f957288888fb69b278cd63eaa1845c1f5984f5;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee

diff --git a/ghc/runtime/gum/Pack.lc b/ghc/runtime/gum/Pack.lc
index f4f9572..26891b8 100644
--- a/ghc/runtime/gum/Pack.lc
+++ b/ghc/runtime/gum/Pack.lc
@@ -153,7 +153,7 @@ W_ *packbuffersize;
     ASSERT(packlocn <= RTSflags.ParFlags.packBufferSize);
     *packbuffersize = packlocn;
 #  else  /* GRAN */
-    ASSERT(packlocn <= PackBuffer[PACK_SIZE_LOCN]);
+    ASSERT(packlocn <= PackBuffer[PACK_SIZE_LOCN]+PACK_HDR_SIZE);
     /* ToDo: Print an earlier, more meaningful message */
     if (packlocn==PACK_HDR_SIZE) {  /* i.e. packet is empty */
       fprintf(stderr,"EMPTY PACKET! Can't transfer closure %#lx at all!!\n",