diff --git a/reactos/subsystems/win32/win32k/eng/event.c b/reactos/subsystems/win32/win32k/eng/event.c
index 09e1450c3f3..e34b6df1d7c 100644
--- a/reactos/subsystems/win32/win32k/eng/event.c
+++ b/reactos/subsystems/win32/win32k/eng/event.c
@@ -56,7 +56,7 @@ EngMapEvent(IN HDEV    Dev,
 				     NULL);
   if (!NT_SUCCESS(Status))
   {
-     ExFreePool(Event);
+     ExFreePoolWithTag(Event, TAG_DFSM);
      return NULL;
   }
   else
diff --git a/reactos/subsystems/win32/win32k/eng/semaphor.c b/reactos/subsystems/win32/win32k/eng/semaphor.c
index 50d20841cd1..b561598e16b 100644
--- a/reactos/subsystems/win32/win32k/eng/semaphor.c
+++ b/reactos/subsystems/win32/win32k/eng/semaphor.c
@@ -16,7 +16,7 @@ EngCreateSemaphore ( VOID )
     return NULL;
   if ( !NT_SUCCESS(ExInitializeResourceLite ( psem )) )
   {
-    ExFreePool ( psem );
+    ExFreePoolWithTag ( psem, TAG_GSEM );
     return NULL;
   }
   return (HSEMAPHORE)psem;
diff --git a/reactos/subsystems/win32/win32k/ntuser/accelerator.c b/reactos/subsystems/win32/win32k/ntuser/accelerator.c
index 9fcb1ac7fda..dd1b99d0443 100644
--- a/reactos/subsystems/win32/win32k/ntuser/accelerator.c
+++ b/reactos/subsystems/win32/win32k/ntuser/accelerator.c
@@ -371,7 +371,7 @@ NtUserCreateAcceleratorTable(
       Status = MmCopyFromCaller(Accel->Table, Entries, EntriesCount * sizeof(ACCEL));
       if (!NT_SUCCESS(Status))
       {
-         ExFreePool(Accel->Table);
+         ExFreePoolWithTag(Accel->Table, TAG_ACCEL);
          UserDereferenceObject(Accel);
          UserDeleteObject(hAccel, otAccel);
          SetLastNtError(Status);
diff --git a/reactos/subsystems/win32/win32k/ntuser/caret.c b/reactos/subsystems/win32/win32k/ntuser/caret.c
index 23eb04f85c7..05aa0e88b0d 100644
--- a/reactos/subsystems/win32/win32k/ntuser/caret.c
+++ b/reactos/subsystems/win32/win32k/ntuser/caret.c
@@ -123,7 +123,7 @@ IntQueryCaretBlinkRate(VOID)
    if(!NT_SUCCESS(Status) || (KeyValuePartialInfo->Type != REG_SZ))
    {
       NtClose(KeyHandle);
-      ExFreePool(KeyValuePartialInfo);
+      ExFreePoolWithTag(KeyValuePartialInfo, TAG_STRING);
       return 0;
    }
 
@@ -137,7 +137,7 @@ IntQueryCaretBlinkRate(VOID)
       Val = 0;
    }
 
-   ExFreePool(KeyValuePartialInfo);
+   ExFreePoolWithTag(KeyValuePartialInfo, TAG_STRING);
    NtClose(KeyHandle);
 
    return (UINT)Val;
diff --git a/reactos/subsystems/win32/win32k/ntuser/winsta.c b/reactos/subsystems/win32/win32k/ntuser/winsta.c
index 781c2e41fb1..816f4527907 100644
--- a/reactos/subsystems/win32/win32k/ntuser/winsta.c
+++ b/reactos/subsystems/win32/win32k/ntuser/winsta.c
@@ -1259,7 +1259,7 @@ BuildWindowStationNameList(
                      FALSE, &Context, NULL))
          {
             /* Something went wrong, maybe someone added a directory entry? Just give up. */
-            ExFreePool(Buffer);
+            ExFreePoolWithTag(Buffer, TAG_WINSTA);
             ObDereferenceObject(DirectoryHandle);
             return NT_SUCCESS(Status) ? STATUS_INTERNAL_ERROR : Status;
          }
@@ -1287,7 +1287,7 @@ BuildWindowStationNameList(
       {
          if (Buffer != InitialBuffer)
          {
-            ExFreePool(Buffer);
+            ExFreePoolWithTag(Buffer, TAG_WINSTA);
          }
          return STATUS_BUFFER_TOO_SMALL;
       }
@@ -1300,7 +1300,7 @@ BuildWindowStationNameList(
    {
       if (Buffer != InitialBuffer)
       {
-         ExFreePool(Buffer);
+         ExFreePoolWithTag(Buffer, TAG_WINSTA);
       }
       return STATUS_BUFFER_TOO_SMALL;
    }
diff --git a/reactos/subsystems/win32/win32k/objects/bitblt.c b/reactos/subsystems/win32/win32k/objects/bitblt.c
index b57beb755b9..f0598e131bc 100644
--- a/reactos/subsystems/win32/win32k/objects/bitblt.c
+++ b/reactos/subsystems/win32/win32k/objects/bitblt.c
@@ -1143,7 +1143,7 @@ NtGdiPolyPatBlt(
 
       if (!NT_SUCCESS(Status))
       {
-         ExFreePool(rb);
+         ExFreePoolWithTag(rb, TAG_PATBLT);
          SetLastNtError(Status);
          return FALSE;
       }
@@ -1152,7 +1152,7 @@ NtGdiPolyPatBlt(
    Ret = IntGdiPolyPatBlt(hDC, dwRop, rb, cRects, Mode);
 
    if (cRects > 0)
-      ExFreePool(rb);
+      ExFreePoolWithTag(rb, TAG_PATBLT);
 
    return Ret;
 }
diff --git a/reactos/subsystems/win32/win32k/objects/coord.c b/reactos/subsystems/win32/win32k/objects/coord.c
index cf7ed1e9e83..ce0b9360a9e 100644
--- a/reactos/subsystems/win32/win32k/objects/coord.c
+++ b/reactos/subsystems/win32/win32k/objects/coord.c
@@ -285,7 +285,7 @@ NtGdiTransformPoints( HDC hDC,
    if(!NT_SUCCESS(Status))
    {
      DC_UnlockDc(dc);
-     ExFreePool(Points);
+     ExFreePoolWithTag(Points, TAG_COORD);
      SetLastNtError(Status);
      return FALSE;
    }
@@ -302,7 +302,7 @@ NtGdiTransformPoints( HDC hDC,
       default:
       {
         DC_UnlockDc(dc);
-        ExFreePool(Points);
+        ExFreePoolWithTag(Points, TAG_COORD);
         SetLastWin32Error(ERROR_INVALID_PARAMETER);
         return FALSE;
       }
@@ -324,7 +324,7 @@ NtGdiTransformPoints( HDC hDC,
    if(!NT_SUCCESS(Status))
    {
      DC_UnlockDc(dc);
-     ExFreePool(Points);
+     ExFreePoolWithTag(Points, TAG_COORD);
      SetLastNtError(Status);
      return FALSE;
    }
@@ -332,7 +332,7 @@ NtGdiTransformPoints( HDC hDC,
 // If we are getting called that means User XForms is a mess!
 //
    DC_UnlockDc(dc);
-   ExFreePool(Points);
+   ExFreePoolWithTag(Points, TAG_COORD);
    return TRUE;
 }
 
diff --git a/reactos/subsystems/win32/win32k/objects/pen.c b/reactos/subsystems/win32/win32k/objects/pen.c
index b380331a44d..1346de17fb1 100644
--- a/reactos/subsystems/win32/win32k/objects/pen.c
+++ b/reactos/subsystems/win32/win32k/objects/pen.c
@@ -323,7 +323,7 @@ NtGdiExtCreatePen(
       if(!NT_SUCCESS(Status))
       {
          SetLastNtError(Status);
-         ExFreePool(pSafeStyle);
+         ExFreePoolWithTag(pSafeStyle, TAG_PENSTYLES);
          return 0;
       }
    }
@@ -341,7 +341,7 @@ NtGdiExtCreatePen(
                              hBrush);
    if (!hPen && pSafeStyle)
    {
-      ExFreePool(pSafeStyle);
+      ExFreePoolWithTag(pSafeStyle, TAG_PENSTYLES);
    }
    return hPen;
 }