Index: branches/5.0.x/core/kernel/startup.php
===================================================================
diff -u -N -r12734 -r13207
--- branches/5.0.x/core/kernel/startup.php	(.../startup.php)	(revision 12734)
+++ branches/5.0.x/core/kernel/startup.php	(.../startup.php)	(revision 13207)
@@ -1,6 +1,6 @@
 <?php
 /**
-* @version	$Id: startup.php 12734 2009-10-20 19:28:11Z alex $
+* @version	$Id: startup.php 13207 2010-03-12 13:48:13Z alex $
 * @package	In-Portal
 * @copyright	Copyright (C) 1997 - 2009 Intechnic. All rights reserved.
 * @license      GNU/GPL
@@ -54,6 +54,13 @@
 	$https_mark = getArrayValue($_SERVER, 'HTTPS');
 	safeDefine('PROTOCOL', ($https_mark == 'on') || ($https_mark == '1') ? 'https://' : 'http://');
 
+	$port = array_key_exists('HTTP_PORT', $_SERVER) ? $_SERVER['HTTP_PORT'] : false;
+
+	if ($port && ((PROTOCOL == 'http://' && $port != '80') || (PROTOCOL == 'https://' && $port != '443'))) {
+		// if non-standard port is used, then define it
+        define('PORT', $_SERVER['HTTP_PORT']);
+    }
+
 	safeDefine('APPLICATION_CLASS', isset($vars['ApplicationClass']) ? $vars['ApplicationClass'] : 'kApplication');
 	safeDefine('APPLICATION_PATH', isset($vars['ApplicationPath']) ? $vars['ApplicationPath'] : '/core/kernel/application.php');