diff --git a/lcl/interfaces/gtk/gtkwsspin.pp b/lcl/interfaces/gtk/gtkwsspin.pp
index cef9af00bc..5b5d189c51 100644
--- a/lcl/interfaces/gtk/gtkwsspin.pp
+++ b/lcl/interfaces/gtk/gtkwsspin.pp
@@ -133,11 +133,9 @@ begin
     AnAdjustment^.upper:=ACustomSpinEdit.MaxValue;
     gtk_adjustment_changed(AnAdjustment);
   end;
-  gtk_spin_button_set_digits(SpinWidget,ACustomSpinEdit.Decimal_Places);
+  gtk_spin_button_set_digits(SpinWidget, ACustomSpinEdit.Decimal_Places);
   gtk_spin_button_set_value(SpinWidget,ACustomSpinEdit.Value);
-  //gtk_object_set_data(PGtkObject(SpinWidget), 'Empty',
-  //                    Pointer(GtkValueEmpty[ACustomSpinEdit.ValueEmpty]));
-  SpinWidget^.climb_rate:=ACustomSpinEdit.Climb_Rate;
+  AnAdjustment^.step_increment := ACustomSpinEdit.Climb_Rate;
 end;
 
 initialization