Index: TECH/Http/Message.cls.xml
===================================================================
diff -u -r1788 -r2612
--- TECH/Http/Message.cls.xml	(.../Message.cls.xml)	(revision 1788)
+++ TECH/Http/Message.cls.xml	(.../Message.cls.xml)	(revision 2612)
@@ -13,6 +13,10 @@
 <Required>1</Required>
 </Property>
 
+<Property name="Port">
+<Type>%String</Type>
+</Property>
+
 <Property name="Params">
 <Type>TECH.KeyValue.List</Type>
 </Property>
Index: TECH/Http/impl/Poster.cls.xml
===================================================================
diff -u -r801 -r2612
--- TECH/Http/impl/Poster.cls.xml	(.../Poster.cls.xml)	(revision 801)
+++ TECH/Http/impl/Poster.cls.xml	(.../Poster.cls.xml)	(revision 2612)
@@ -23,6 +23,9 @@
  	set ..HttpRequest.Server = Message.Server
  	set ..HttpRequest.ContentType = Message.ContentType
  	set ..HttpRequest.ContentEncoding = Message.ContextEncoding
+ 	If ($$$HasLength(Message.Port)) {
+	 	Set ..HttpRequest.Port = Message.Port
+ 	}
  	
  	do ..SetRequestParams()