diff --git a/ChangeLog b/ChangeLog
index 7d014fa67..c4de35897 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-14  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
+
+	* Tools/SOGoToolBackup.m (-extractUserPreferences:intoRecord:):
+	fixed compilation warning.
+
 2010-01-13  Francis Lachapelle  <flachapelle@inverse.ca>
 
 	* UI/WebServerResources/ContactsUI.js (-fixSearchFieldPosition):
diff --git a/Tools/SOGoToolBackup.m b/Tools/SOGoToolBackup.m
index 907951d56..3f36727c5 100644
--- a/Tools/SOGoToolBackup.m
+++ b/Tools/SOGoToolBackup.m
@@ -38,7 +38,9 @@
 #import <SOGo/NSArray+Utilities.h>
 #import <SOGo/NSDictionary+Utilities.h>
 #import <SOGo/SOGoUser.h>
+#import <SOGo/SOGoUserDefaults.h>
 #import <SOGo/SOGoUserProfile.h>
+#import <SOGo/SOGoUserSettings.h>
 
 #import "SOGoToolBackup.h"
 
@@ -341,12 +343,13 @@
 {
   SOGoUser *sogoUser;
   NSArray *preferences;
-  NSDictionary *defaultsValues, *settingsValues;
+  SOGoUserProfile *defaultsSource, *profileSource;
 
   sogoUser = [SOGoUser userWithLogin: uid roles: nil];
-  defaultsValues = [[[sogoUser userDefaults] source] values];
-  settingsValues = [[[sogoUser userSettings] source] values];
-  preferences = [NSArray arrayWithObjects: defaultsValues, settingsValues,
+  defaultsSource = [[sogoUser userDefaults] source];
+  profileSource = [[sogoUser userSettings] source];
+  preferences = [NSArray arrayWithObjects:
+                           [defaultsSource values], [profileSource values],
                          nil];
   [userRecord setObject: preferences forKey: @"preferences"];