--- lib/Module/Build/Platform/VMS.pm;-3	Sat Sep  9 16:33:38 2006
+++ lib/Module/Build/Platform/VMS.pm	Sun Sep 10 23:10:35 2006
@@ -22,19 +22,17 @@ the general docs.
 
 =over 4
 
-=item new
+=item _set_defaults
 
 Change $self->{build_script} to 'Build.com' so @Build works.
 
 =cut
 
-sub new {
-    my $class = shift;
-    my $self = $class->SUPER::new(@_);
+sub _set_defaults {
+    my $self = shift;
+    $self->SUPER::_set_defaults(@_);
 
     $self->{properties}{build_script} = 'Build.com';
-
-    return $self;
 }
 
 
--- t/xs.t;-0	Tue Jun 13 14:29:17 2006
+++ t/xs.t	Sun Sep 10 23:17:17 2006
@@ -65,10 +65,12 @@ is $@, '';
   eval {$mb->dispatch('clean')};
   is $@, '';
 
+
   $mb->create_build_script;
-  ok -e 'Build';
+  my $script = $mb->{properties}{build_script};
+  ok -e $script;
 
-  eval {$mb->run_perl_script('Build')};
+  eval {$mb->run_perl_script($script)};
   is $@, '';
 }