From 4b219373a5b4ed1fc7ca82fde1c8d36f2965cde8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 29 Sep 2008 22:33:06 -0500
Subject: [PATCH] Tweaks

---
 basis/furnace/actions/actions.factor              | 2 +-
 extra/webapps/help/help.factor                    | 2 +-
 extra/websites/concatenative/concatenative.factor | 5 ++---
 3 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/basis/furnace/actions/actions.factor b/basis/furnace/actions/actions.factor
index 2a63489299..7505b3c612 100755
--- a/basis/furnace/actions/actions.factor
+++ b/basis/furnace/actions/actions.factor
@@ -79,7 +79,7 @@ TUPLE: action rest authorize init display validate submit ;
 
 : revalidate-url ( -- url/f )
     revalidate-url-key param
-    dup [ >url [ same-host? ] keep and ] when ;
+    dup [ >url ensure-port [ same-host? ] keep and ] when ;
 
 : validation-failed ( -- * )
     post-request? revalidate-url and [
diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index e9b6a48634..c209fe222e 100644
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -13,7 +13,7 @@ TUPLE: help-webapp < dispatcher ;
 
         [
             {
-                { "search" [ 2 v-min-length 50 v-max-length v-one-line ] }
+                { "search" [ 1 v-min-length 50 v-max-length v-one-line ] }
             } validate-params
 
             help-dir set-current-directory
diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor
index 72eb483066..0af8eb31d7 100644
--- a/extra/websites/concatenative/concatenative.factor
+++ b/extra/websites/concatenative/concatenative.factor
@@ -77,10 +77,9 @@ SYMBOL: dh-file
     "password" key-password set-global
     common-configuration
     <factor-website>
-        <pastebin> "pastebin" add-responder
-        <planet> "planet" add-responder
+        <pastebin> <factor-boilerplate> "pastebin" add-responder
+        <planet> <factor-boilerplate> "planet" add-responder
         "/tmp/docs/" <help-webapp> "docs" add-responder
-    <factor-boilerplate>
     <configuration>
     main-responder set-global ;
 
-- 
2.34.1