diff --git a/fast-fourier-transforms/example.lisp b/fast-fourier-transforms/example.lisp
index faccb74585d7c4e743b78c3f1353757e33a3bedc..8add24473a4197ffdd4d43a22aa65b1d373d438a 100644
--- a/fast-fourier-transforms/example.lisp
+++ b/fast-fourier-transforms/example.lisp
@@ -88,7 +88,7 @@
 	 (forward
 	  (forward-fourier-transform
 	   (if (subtypep element-type 'complex)
-	       random-vector
+               (copy-making-destination random-vector)
 	       (realpart-vector random-vector))
 	   :stride stride)))
     (values
@@ -98,3 +98,4 @@
 	 (unpack forward :unpack-type 'complex :stride stride)))))
 
 ;;(test-fft-noise 'double-float 10 :stride 5)
+;;(test-fft-noise '(complex double-float) 10 :stride 5)