Fixing regression

svn: r12764
This commit is contained in:
Jay McCarthy 2008-12-10 17:22:43 +00:00
parent 247d9fb5fe
commit 02147ef4f3

View File

@ -61,7 +61,7 @@
(lambda (flags)
(configuration-table->web-config@
(extract-flag 'config flags default-configuration-table-path)
#:port (or (port) 80)
#:port (port)
#:listen-ip (extract-flag 'ip-address flags #f)))
'()))