--- a/Lib/IMPL/Config.pm	Tue May 17 00:04:28 2011 +0400
+++ b/Lib/IMPL/Config.pm	Tue May 24 01:11:16 2011 +0400
@@ -6,6 +6,8 @@
 
 __PACKAGE__->PassThroughArgs;
 
+use File::Spec();
+
 use IMPL::Class::Member;
 use IMPL::Class::PropertyInfo;
 use IMPL::Exception;
@@ -13,7 +15,7 @@
 use IMPL::Serialization;
 use IMPL::Serialization::XmlFormatter;
 
-
+our $ConfigBase ||= '';
 
 sub LoadXMLFile {
     my ($self,$file) = @_;
@@ -89,7 +91,8 @@
 }
 
 sub spawn {
-	goto &LoadXMLFile;
+	my ($this,$file) = @_;
+	return $this->LoadXMLFile( File::Spec->catfile($ConfigBase,$file) );
 }
 
 sub get {