diff --git a/components/printers/carbon/carbonprndialogs.inc b/components/printers/carbon/carbonprndialogs.inc
index a55e755839..69a5483ef0 100644
--- a/components/printers/carbon/carbonprndialogs.inc
+++ b/components/printers/carbon/carbonprndialogs.inc
@@ -45,6 +45,7 @@ var
   CarbonPrinter: TCarbonPrinter;
   DialogSettings: PMPrintSettings;
   U, V: UInt32;
+  B: Boolean;
   PMin, PMax, PFrom, PTo: Integer;
 begin
   Result := False;
@@ -83,7 +84,9 @@ begin
 
     if Result then
     begin
-      OSError(PMGetCollate(DialogSettings, Collate), Self, SExecute, 'PMGetCollate');
+      B := Collate;
+      OSError(PMGetCollate(DialogSettings, B), Self, SExecute, 'PMGetCollate');
+      Collate := B;
       
       V := Copies;
       OSError(PMGetCopies(DialogSettings, V), Self, SExecute, 'PMGetCopies');
diff --git a/docs/Contributors.txt b/docs/Contributors.txt
index 3742d7fbd2..2ad13a3544 100644
--- a/docs/Contributors.txt
+++ b/docs/Contributors.txt
@@ -29,6 +29,7 @@ Darius Blaszijk
 David Guadagnini
 Dean Zobec
 Diogo Picarra
+Dominique Louis
 Ere Maijala
 Eric Chapman
 Erivelton Silva