Index: trunk/ippScripts/scripts/chip_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/chip_imfile.pl	(revision 12225)
+++ trunk/ippScripts/scripts/chip_imfile.pl	(revision 12421)
@@ -80,12 +80,12 @@
 $input = $ipprc->convert_filename_absolute( $input );
 
+# Set output directory
 if (defined $workdir) {
     $workdir = $ipprc->convert_filename_absolute( $workdir );
+    $workdir = File::Spec->catdir( $workdir, $exp_id );
 } else {
     my ($vol, $dir, $file) = File::Spec->splitpath( $input );
     $workdir = $dir;
 }
-
-$workdir = File::Spec->catfile( $workdir, $exp_id );
 system "mkdir -p $workdir" unless -d $workdir;