Index: /trunk/ippToPsps/perl/ippToPsps/Batch.pm
===================================================================
--- /trunk/ippToPsps/perl/ippToPsps/Batch.pm	(revision 29242)
+++ /trunk/ippToPsps/perl/ippToPsps/Batch.pm	(revision 29243)
@@ -63,4 +63,5 @@
     bless $self, $class;
 
+    if (!defined $self->{_baseDir}) {$self->{_baseDir} = "./";}
     $self->{_parentDir} = $self->{_dvoDb};