diff --git a/ChangeLog b/ChangeLog
index 97113cff4..20268c67a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-10-15  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
+
+	* SoObjects/SOGo/SOGoObject.m ([SOGoObject -davURL])
+	([SOGoObject -soURL]): appended the port number to the hostname
+	used to construct the NSURL instance.
+
 2008-10-03  Francis Lachapelle  <flachapelle@inverse.ca>
 
 	* UI/MainUI/SOGoUserHomePage.m ([WOResponse
diff --git a/SoObjects/SOGo/SOGoObject.m b/SoObjects/SOGo/SOGoObject.m
index 473e8cf5f..6a2bbf7c0 100644
--- a/SoObjects/SOGo/SOGoObject.m
+++ b/SoObjects/SOGo/SOGoObject.m
@@ -1164,7 +1164,7 @@ SEL SOGoSelectorForPropertySetter (NSString *property)
 {
   NSURL *serverURL, *url;
   NSMutableArray *path;
-  NSString *baseURL, *urlMethod;
+  NSString *baseURL, *urlMethod, *fullHost;
 
   serverURL = [context serverURL];
   baseURL = [[self baseURLInContext: context] stringByUnescapingURL];
@@ -1185,8 +1185,10 @@ SEL SOGoSelectorForPropertySetter (NSString *property)
 	[path insertObject: expected atIndex: 2];
     }
 
+  fullHost = [NSString stringWithFormat: @"%@:%@",
+		       [serverURL host], [serverURL port]];
   url = [[NSURL alloc] initWithScheme: [serverURL scheme]
-		       host: [serverURL host]
+		       host: fullHost
 		       path: [path componentsJoinedByString: @"/"]];
   [url autorelease];