diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index e260e3938e..6ee1d5fb87 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -4343,6 +4343,11 @@ begin
       pDC^.ClipRegion := 0;
     end;
       
+    if pDC^.GC<>nil then begin
+      gdk_gc_unref(pDC^.GC);
+      pDC^.GC:=nil;
+    end;
+    
     Result := CopyDCData(pDC, pSavedDC);
     pDC^.SavedContext := pSavedDC^.SavedContext;
     pSavedDC^.SavedContext := nil;
@@ -5989,6 +5994,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.104  2002/08/21 15:46:08  lazarus
+  MG: fixed a mem leak in RestoreDC
+
   Revision 1.103  2002/08/21 14:44:18  lazarus
   MG: accelerated synedit