Index: lib/Sledge/Pages/Base.pm
===================================================================
RCS file: /cvsroot/sledge/Sledge/lib/Sledge/Pages/Base.pm,v
retrieving revision 1.4
diff -u -r1.4 Base.pm
--- lib/Sledge/Pages/Base.pm	6 Jul 2005 17:05:58 -0000	1.4
+++ lib/Sledge/Pages/Base.pm	12 Nov 2007 03:03:38 -0000
@@ -50,7 +50,7 @@
 sub send_content      { Sledge::Exception::DeprecatedMethod->throw }
 
 # Formerly implemented via LoadHooks
-use Class::Trigger qw(BEFORE_INIT AFTER_INIT BEFORE_DISPATCH AFTER_DISPATCH AFTER_OUTPUT);
+use Class::Trigger qw(BEFORE_INIT AFTER_INIT BEFORE_DISPATCH AFTER_DISPATCH AFTER_OUTPUT BEFORE_OUTPUT);
 
 *register_hook = \&add_trigger;
 *invoke_hook   = \&call_trigger;
@@ -192,6 +192,7 @@
 
 sub make_content {
     my $self = shift;
+    $self->invoke_hook('BEFORE_OUTPUT');
     # template output, then fillin forms
     my $output = $self->tmpl->output;