diff --git a/lib/Photonic/Utils.pm b/lib/Photonic/Utils.pm
index 6e980c15..03766e4f 100644
--- a/lib/Photonic/Utils.pm
+++ b/lib/Photonic/Utils.pm
@@ -350,7 +350,7 @@ sub vectors2Dlist { #2D vector fields ready for gnuploting
 
 sub cgtsv {
     confess "Wrong number of arguments" unless @_ == 4;
-    my ($c, $d, $e, $b) = map $_->new_or_inplace($_), @_;
+    my ($c, $d, $e, $b) = map $_->new_or_inplace, @_;
     my $i = PDL::LinearAlgebra::Complex::cgtsv($c, $d, $e, $b);
     confess "Error solving tridiag system: info=$i" if $i->any;
     $b;