diff --git a/src/libCom/cxxTemplates/tsFreeList.h b/src/libCom/cxxTemplates/tsFreeList.h
index c7b050f47..5907778fa 100644
--- a/src/libCom/cxxTemplates/tsFreeList.h
+++ b/src/libCom/cxxTemplates/tsFreeList.h
@@ -100,6 +100,11 @@ inline void * tsFreeList < T, N, DEBUG_LEVEL >::allocate ( size_t size )
 {
     tsFreeListItem < T, DEBUG_LEVEL > *p;
 
+    if ( DEBUG_LEVEL > 9 ) {
+        fprintf ( stderr, "creating a new %s of size %u\n", 
+            typeid ( T ).name (), sizeof ( T ) );
+    }
+
     if ( size != sizeof ( T ) || N == 0u ) {
         return ::operator new ( size );
     }
@@ -143,6 +148,10 @@ tsFreeListItem < T, DEBUG_LEVEL > * tsFreeList < T, N, DEBUG_LEVEL >::allocateFr
 template < class T, unsigned N, unsigned DEBUG_LEVEL >
 inline void tsFreeList < T, N, DEBUG_LEVEL >::release ( void *pCadaver, size_t size )
 {
+    if ( DEBUG_LEVEL > 9 ) {
+        fprintf ( stderr, "releasing a %s of size %u\n", 
+            typeid ( T ).name (), sizeof ( T ) );
+    }
     if ( size != sizeof ( T ) || N == 0u ) {
         ::operator delete ( pCadaver );
     }