Index: trunk/tools/stack_inputs.pl
===================================================================
--- trunk/tools/stack_inputs.pl	(revision 24829)
+++ trunk/tools/stack_inputs.pl	(revision 24830)
@@ -70,14 +70,15 @@
 
 foreach my $warp_path ( @$warps ) {
-    if (defined $muggle) {
-        my @warp = split /\//, $warp_path;
-        my $last = pop @warp;
-        push @warp, "SR_$last";
-        $warp_path = join '/', @warp;
-    }
     print $list "INPUT METADATA\n" if defined $input;
     foreach my $type ( keys %{EXTENSIONS()} ) {
+        my $path = $warp_path;
+        if (defined $muggle and $type ne "PSF") {
+            my @warp = split /\//, $warp_path;
+            my $last = pop @warp;
+            push @warp, "SR_$last";
+            $path = join '/', @warp;
+        }
         my $ext = ${EXTENSIONS()}{$type}; # Extension
-        my $file = "$warp_path$ext"; # File
+        my $file = "$path$ext"; # File
         my $source = `ipp_datapath.pl $file` or die "Unable to locate $file\n"; # Resolved file name
         chomp $source;