--- test/html-webhacc/WebHACC/Input.pm	2008/08/15 05:53:23	1.9
+++ test/html-webhacc/WebHACC/Input.pm	2008/08/16 07:42:20	1.10
@@ -348,7 +348,7 @@
 push our @ISA, 'WebHACC::Input';
 
 sub new ($$) {
-  my $self = bless {}, shift;
+  my $self = shift->SUPER::new;
   $self->{subdocument_index} = shift;
   return $self;
 } # new