diff --git a/lcl/interfaces/carbon/carbonedits.pp b/lcl/interfaces/carbon/carbonedits.pp
index 78c4b0aab5..43da512c56 100644
--- a/lcl/interfaces/carbon/carbonedits.pp
+++ b/lcl/interfaces/carbon/carbonedits.pp
@@ -810,7 +810,6 @@ end;
  ------------------------------------------------------------------------------}
 procedure TCarbonComboBox.ValueChanged;
 begin
-  writeln('crb: ', LCLObject.Name,' value changed!');
   if FReadOnly then ListItemSelected(GetValue - 1);
 end;