--- PDL-Audio/audio.pd	2004/12/28 01:05:16	1.1
+++ PDL-Audio/audio.pd	2004/12/28 01:38:19	1.2
@@ -1617,7 +1617,8 @@
    defined $fftw_loaded or eval {
       $fftw_loaded = 0;
       require PDL::FFTW;
-      PDL::FFTW::load_wisdom("$ENV{HOME}/.pdl_wisdom") if $ENV{HOME};
+      PDL::FFTW::load_wisdom("$ENV{HOME}/.pdl_wisdom")
+         if -r "$ENV{HOME}/.pdl_wisdom";
       $fftw_loaded = 1;
    };
    $fftw_loaded;
@@ -1627,7 +1628,7 @@
    my $data = $_[0];
    if (_fftw) {
       my $x = $data->r2C;
-      PDL::FFTW::nfftw($x);
+      $x = PDL::FFTW::nfftw $x;
       $x;
    } else {
       require PDL::FFT;
@@ -1640,7 +1641,7 @@
 sub irfft {
    if (_fftw) {
       $x = $_[0]->copy;
-      PDL::FFTW::infftw($x);
+      $x = PDL::FFTW::infftw $x;
       re $x / $x->getdim(1);
    } else {
       require PDL::FFT;