diff --git a/fast-fourier-transforms/unpack.lisp b/fast-fourier-transforms/unpack.lisp
index 7b58662de83f554fbc9184d78bcd797fc685cf84..2ac7d9259daebd195c08f99a5121cf49b884fb7a 100644
--- a/fast-fourier-transforms/unpack.lisp
+++ b/fast-fourier-transforms/unpack.lisp
@@ -88,6 +88,6 @@
     (remf pass-on-args :unpack-type)
     (if (eq unpack-type 'complex)
 	(if (power-of-2-p (floor (size vector) stride))
-	    (apply 'fft-half-complex-radix2-unpack pass-on-args)
-	    (apply 'fft-half-complex-unpack pass-on-args))
-	(apply 'fft-real-unpack pass-on-args))))
+	    (apply 'fft-half-complex-radix2-unpack vector pass-on-args)
+	    (apply 'fft-half-complex-unpack vector pass-on-args))
+	(apply 'fft-real-unpack vector pass-on-args))))