diff --git a/fast-fourier-transforms/wavetable-workspace.lisp b/fast-fourier-transforms/wavetable-workspace.lisp
index 4a380e21000b0ea8f7e23058b473994a6999d4af..fe40f525c6c9cf0f500cd20fd7ad6b749555d0a7 100644
--- a/fast-fourier-transforms/wavetable-workspace.lisp
+++ b/fast-fourier-transforms/wavetable-workspace.lisp
@@ -1,6 +1,6 @@
 ;; Wavetable and workspace object definitions.
 ;; Sumant Oemrawsingh, Sun Oct 25 2009 - 16:35
-;; Time-stamp: <2009-11-07 11:24:02EST wavetable-workspace.lisp>
+;; Time-stamp: <2009-11-11 19:01:48EST wavetable-workspace.lisp>
 
 (in-package :gsl)
 
@@ -212,8 +212,8 @@
            (make-fft-real-wavetable-single-float dimension)))
         ((eql element-type 'double-float)
          (if half-complex
-           (make-fft-real-wavetable-double-float dimension)
-           (make-fft-half-complex-wavetable-double-float dimension)))
+           (make-fft-half-complex-wavetable-double-float dimension)
+           (make-fft-real-wavetable-double-float dimension)))
         ((equal element-type '(complex single-float))
          (make-fft-complex-wavetable-single-float dimension))
         ((equal element-type '(complex double-float))