diff --git a/base/src/TRef.cxx b/base/src/TRef.cxx
index e698a71de76170808adf6acf928e45f294a63ce8..6bffc64fbacb56b98c4ce32af9fea1b7c9f6cdfc 100644
--- a/base/src/TRef.cxx
+++ b/base/src/TRef.cxx
@@ -1,4 +1,4 @@
-// @(#)root/cont:$Name:  $:$Id: TRef.cxx,v 1.14 2002/04/01 17:19:13 brun Exp $
+// @(#)root/cont:$Name:  $:$Id: TRef.cxx,v 1.15 2002/05/18 08:21:58 brun Exp $
 // Author: Rene Brun   28/09/2001
 
 /*************************************************************************
@@ -382,10 +382,16 @@ void TRef::Streamer(TBuffer &R__b)
       //by TStreamerInfo::ReadBuffer (Clones) when reading this TRef
       Int_t execid = TStreamerInfo::GetCurrentElement()->GetUniqueID();
       if (execid) SetBit(execid);
+      if (gDebug > 1) {
+         printf("Reading TRef, pidf=%d, fPID=%lx, uid=%d, obj=%lx\n",pidf,(Long_t)fPID,GetUniqueID(),(Long_t)GetObject());
+      }      
    } else {
       TObject::Streamer(R__b);
 
       pidf = TProcessID::WriteProcessID(fPID,file);
       R__b << pidf;
+      if (gDebug > 1) {
+         printf("Writing TRef, pidf=%d, fPID=%lx, uid=%d, obj=%lx\n",pidf,(Long_t)fPID,GetUniqueID(),(Long_t)GetObject());
+      }      
    }
 }
diff --git a/cont/src/TRefArray.cxx b/cont/src/TRefArray.cxx
index c3afbd976d65ad44033f8fd24f7e695b4cabc73a..7199eb7c5ffb8c78d8fecf8d8c7ba8ac79fe4067 100644
--- a/cont/src/TRefArray.cxx
+++ b/cont/src/TRefArray.cxx
@@ -1,4 +1,4 @@
-// @(#)root/cont:$Name:  $:$Id: TRefArray.cxx,v 1.11 2002/05/25 21:00:36 brun Exp $
+// @(#)root/cont:$Name:  $:$Id: TRefArray.cxx,v 1.12 2002/06/04 19:51:14 brun Exp $
 // Author: Rene Brun  02/10/2001
 
 /*************************************************************************
@@ -37,6 +37,7 @@
 #include "TRefArray.h"
 #include "TError.h"
 #include "TFile.h"
+#include "TSystem.h"
 
 ClassImp(TRefArray)
 
@@ -319,9 +320,14 @@ void TRefArray::Streamer(TBuffer &R__b)
       fLast = -1;
       R__b >> pidf;
       fPID = TProcessID::ReadProcessID(pidf,file);
+      if (gDebug > 1) printf("Reading TRefArray, pidf=%d, fPID=%lx, nobjects=%d\n",pidf,(Long_t)fPID,nobjects);
       for (Int_t i = 0; i < nobjects; i++) {
           R__b >> fUIDs[i];
           if (fUIDs[i] != 0) fLast = i;
+          if (gDebug > 1) {
+             printf(" %d",fUIDs[i]);
+             if ((i > 0 && i%10 == 0) || (i == nobjects-1)) printf("\n");
+          }      
       }
       Changed();
       R__b.CheckByteCount(R__s, R__c,TRefArray::IsA());
@@ -334,8 +340,14 @@ void TRefArray::Streamer(TBuffer &R__b)
       R__b << fLowerBound;
       pidf = TProcessID::WriteProcessID(fPID,file);
       R__b << pidf;
+      if (gDebug > 1) printf("Writing TRefArray, pidf=%d, fPID=%lx, nobjects=%d\n",pidf,(Long_t)fPID,nobjects);
+      
       for (Int_t i = 0; i < nobjects; i++) {
           R__b << fUIDs[i];
+          if (gDebug > 1) {
+             printf(" %d",fUIDs[i]);
+             if ((i > 0 && i%10 == 0) || (i == nobjects-1)) printf("\n");
+          }      
       }
       R__b.SetByteCount(R__c, kTRUE);
    }