Fix M:: stack effects.

diff --git a/basis/furnace/boilerplate/boilerplate.factor b/basis/furnace/boilerplate/boilerplate.factor
index b4bc574ae224e66bbfc30293ddb9351874b859c6..4293044ab367bd4ebc7f96f0f403aa2cef38b648 100644 (file)
--- a/basis/furnace/boilerplate/boilerplate.factor
+++ b/basis/furnace/boilerplate/boilerplate.factor
@@ -20,7 +20,7 @@ TUPLE: boilerplate < filter-responder template init ;
 : wrap-boilerplate? ( response -- ? )
     { [ code>> 200 = ] [ content-type>> "text/html" = ] } 1&& ;
 
-M:: boilerplate call-responder* ( path responder -- )
+M:: boilerplate call-responder* ( path responder -- response )
     begin-form
     path responder call-next-method
     responder init>> call( -- )