Index: branches/5.1.x/core/kernel/startup.php
===================================================================
diff -u -N -r13392 -r13545
--- branches/5.1.x/core/kernel/startup.php	(.../startup.php)	(revision 13392)
+++ branches/5.1.x/core/kernel/startup.php	(.../startup.php)	(revision 13545)
@@ -1,6 +1,6 @@
 <?php
 /**
-* @version	$Id: startup.php 13392 2010-04-24 20:21:31Z alex $
+* @version	$Id: startup.php 13545 2010-05-11 19:19:58Z 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');