diff --git a/lcl/interfaces/gtk/gtkdef.pp b/lcl/interfaces/gtk/gtkdef.pp
index 4cf7736eef..1aeba24321 100644
--- a/lcl/interfaces/gtk/gtkdef.pp
+++ b/lcl/interfaces/gtk/gtkdef.pp
@@ -111,6 +111,10 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.2  2001/01/25 21:38:57  lazarus
+  MWE:
+    * fixed lil bug I commetted yesterday (listbox crash)
+
   Revision 1.1  2001/01/24 23:26:40  lazarus
   MWE:
     = moved some types to gtkdef
diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 250f767cca..887783e029 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -540,7 +540,7 @@ begin
   end
   else begin
     New(Result);
-    FillChar(Result, SizeOf(Result^), 0);
+    FillChar(Result^, SizeOf(Result^), 0);
     gtk_object_set_data(Widget, 'widgetinfo', Result);
   end;
 end;
@@ -723,6 +723,10 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.10  2001/01/25 21:38:57  lazarus
+  MWE:
+    * fixed lil bug I commetted yesterday (listbox crash)
+
   Revision 1.9  2001/01/24 23:26:40  lazarus
   MWE:
     = moved some types to gtkdef