1 files changed, 2 insertions, 1 deletions

diff --git a/lib/Numeric/GSL/Polynomials.hs b/lib/Numeric/GSL/Polynomials.hs
index 42694f0..e663711 100644
--- a/lib/Numeric/GSL/Polynomials.hs
+++ b/lib/Numeric/GSL/Polynomials.hs
@@ -47,7 +47,8 @@ polySolve = toList . polySolve' . fromList
 polySolve' :: Vector Double -> Vector (Complex Double)
 polySolve' v | dim v > 1 = unsafePerformIO $ do
     r <- createVector (dim v-1)
-    c_polySolve // vec v // vec r // check "polySolve" [v]
+    ww2 withVector v withVector r $ \ v r ->
+        c_polySolve // v // r // check "polySolve"
     return r
              | otherwise = error "polySolve on a polynomial of degree zero"