Tweaks

[factor.git] / basis / furnace / actions / actions.factor

diff --git a/basis/furnace/actions/actions.factor b/basis/furnace/actions/actions.factor
index 2a6348929941947b4eee98bccf1cf44875e01332..7505b3c6126f7588be4bdfc0fac0db318cb71546 100755 (executable)
--- a/basis/furnace/actions/actions.factor
+++ b/basis/furnace/actions/actions.factor
@@ -79,7 +79,7 @@ TUPLE: action rest authorize init display validate submit ;
 \r
 : revalidate-url ( -- url/f )\r
     revalidate-url-key param\r
-    dup [ >url [ same-host? ] keep and ] when ;\r
+    dup [ >url ensure-port [ same-host? ] keep and ] when ;\r
 \r
 : validation-failed ( -- * )\r
     post-request? revalidate-url and [\r