--- trunk/lib/Frey/Server.pm	2008/07/11 22:54:42	101
+++ trunk/lib/Frey/Server.pm	2008/07/11 23:08:25	103
@@ -18,8 +18,9 @@
 #$repl = Continuity::REPL->new;
 
 sub run {
+	my ( $self, $port ) = @_;
 	$server = Continuity->new(
-		port => 16001,
+		port => $port || 16001,
 		path_session => 1,
 		cookie_session => 'sid',
 		callback => \&main,