diff --git a/reactos/drivers/filesystems/vfat/create.c b/reactos/drivers/filesystems/vfat/create.c
index 7a3b9876fb7..1e147ee3302 100644
--- a/reactos/drivers/filesystems/vfat/create.c
+++ b/reactos/drivers/filesystems/vfat/create.c
@@ -201,7 +201,7 @@ FindFile (
 	DPRINT ("FindFile: Path %wZ)\n",&Parent->PathNameU);
 
 	PathNameBufferLength = LONGNAME_MAX_LENGTH * sizeof(WCHAR);
-	PathNameBuffer = ExAllocatePool(NonPagedPool, PathNameBufferLength + sizeof(WCHAR));
+	PathNameBuffer = ExAllocatePoolWithTag(NonPagedPool, PathNameBufferLength + sizeof(WCHAR), TAG_VFAT);
 	if (!PathNameBuffer)
 	{
 		CHECKPOINT1;
diff --git a/reactos/drivers/filesystems/vfat/dir.c b/reactos/drivers/filesystems/vfat/dir.c
index 4af7e4ac2b6..34679fee37d 100644
--- a/reactos/drivers/filesystems/vfat/dir.c
+++ b/reactos/drivers/filesystems/vfat/dir.c
@@ -351,7 +351,7 @@ static NTSTATUS DoQuery (PVFAT_IRP_CONTEXT IrpContext)
         {
           FirstQuery = TRUE;
           pCcb->SearchPattern.MaximumLength = pSearchPattern->Length + sizeof(WCHAR);
-          pCcb->SearchPattern.Buffer = ExAllocatePool(NonPagedPool, pCcb->SearchPattern.MaximumLength);
+          pCcb->SearchPattern.Buffer = ExAllocatePoolWithTag(NonPagedPool, pCcb->SearchPattern.MaximumLength, TAG_VFAT);
           if (!pCcb->SearchPattern.Buffer)
             {
               ExReleaseResourceLite(&pFcb->MainResource);
@@ -365,7 +365,7 @@ static NTSTATUS DoQuery (PVFAT_IRP_CONTEXT IrpContext)
     {
       FirstQuery = TRUE;
       pCcb->SearchPattern.MaximumLength = 2 * sizeof(WCHAR);
-      pCcb->SearchPattern.Buffer = ExAllocatePool(NonPagedPool, 2 * sizeof(WCHAR));
+      pCcb->SearchPattern.Buffer = ExAllocatePoolWithTag(NonPagedPool, 2 * sizeof(WCHAR), TAG_VFAT);
       if (!pCcb->SearchPattern.Buffer)
         {
           ExReleaseResourceLite(&pFcb->MainResource);
diff --git a/reactos/drivers/filesystems/vfat/dirwr.c b/reactos/drivers/filesystems/vfat/dirwr.c
index 0a65493c968..e90f204bd92 100644
--- a/reactos/drivers/filesystems/vfat/dirwr.c
+++ b/reactos/drivers/filesystems/vfat/dirwr.c
@@ -219,7 +219,7 @@ FATAddEntry (PDEVICE_EXTENSION DeviceExt,
 
   nbSlots = (DirContext.LongNameU.Length / sizeof(WCHAR) + 12) / 13 + 1;	//nb of entry needed for long name+normal entry
   DPRINT ("NameLen= %d, nbSlots =%d\n", DirContext.LongNameU.Length / sizeof(WCHAR), nbSlots);
-  Buffer = ExAllocatePool (NonPagedPool, (nbSlots - 1) * sizeof (FAT_DIR_ENTRY));
+  Buffer = ExAllocatePoolWithTag (NonPagedPool, (nbSlots - 1) * sizeof (FAT_DIR_ENTRY), TAG_VFAT);
   if (Buffer == NULL)
   {
     return STATUS_INSUFFICIENT_RESOURCES;
diff --git a/reactos/drivers/filesystems/vfat/fsctl.c b/reactos/drivers/filesystems/vfat/fsctl.c
index 666d3636670..587c25dd18c 100644
--- a/reactos/drivers/filesystems/vfat/fsctl.c
+++ b/reactos/drivers/filesystems/vfat/fsctl.c
@@ -133,7 +133,7 @@ VfatHasFileSystem(PDEVICE_OBJECT DeviceToMount,
    if (*RecognizedFS)
    {
 
-      Boot = ExAllocatePool(NonPagedPool, DiskGeometry.BytesPerSector);
+      Boot = ExAllocatePoolWithTag(NonPagedPool, DiskGeometry.BytesPerSector, TAG_VFAT);
       if (Boot == NULL)
       {
          return STATUS_INSUFFICIENT_RESOURCES;
@@ -257,7 +257,7 @@ VfatHasFileSystem(PDEVICE_OBJECT DeviceToMount,
 
    if (!*RecognizedFS && PartitionInfoIsValid)
    {
-      BootFatX = ExAllocatePool(NonPagedPool, sizeof(struct _BootSectorFatX));
+      BootFatX = ExAllocatePoolWithTag(NonPagedPool, sizeof(struct _BootSectorFatX), TAG_VFAT);
       if (BootFatX == NULL)
       {
          *RecognizedFS=FALSE;
diff --git a/reactos/drivers/filesystems/vfat/vfat.h b/reactos/drivers/filesystems/vfat/vfat.h
index a542ededb9f..52c9dd26784 100644
--- a/reactos/drivers/filesystems/vfat/vfat.h
+++ b/reactos/drivers/filesystems/vfat/vfat.h
@@ -413,6 +413,7 @@ typedef struct _VFATCCB
 #define TAG_CCB TAG('V', 'C', 'C', 'B')
 #define TAG_FCB TAG('V', 'F', 'C', 'B')
 #define TAG_IRP TAG('V', 'I', 'R', 'P')
+#define TAG_VFAT TAG('V', 'F', 'A', 'T')
 
 #define ENTRIES_PER_SECTOR (BLOCKSIZE / sizeof(FATDirEntry))