diff --git a/cl-quil-tests.asd b/cl-quil-tests.asd
index 46cf38b90..314b3c5f9 100644
--- a/cl-quil-tests.asd
+++ b/cl-quil-tests.asd
@@ -40,7 +40,7 @@
                (:file "cfg-tests")
                (:file "defcircuit-tests")
                (:file "compilation-tests")
-               ;(:file "clifford-tests")
+               (:file "clifford-tests")
                (:file "translator-tests")
                (:file "rewrite-tests")
                (:file "state-prep-tests")
diff --git a/src/clifford/perm.lisp b/src/clifford/perm.lisp
index da2dbb78f..3c45c05d2 100644
--- a/src/clifford/perm.lisp
+++ b/src/clifford/perm.lisp
@@ -35,7 +35,7 @@
   "Convert a Clifford group element C into a permutation representation."
   (let* ((num-qubits (num-qubits c))
          (num-points (clifford-perm-degree num-qubits))
-         (rep (perm::iota-vector (1+ num-points))))
+         (rep (perm::iota-vector (1+ num-points) :element-type 'perm::perm-element)))
     (dotimes (i num-points (perm::%make-perm rep))
       ;; The 2*(2 + i) and x/2 - 2 are to convert in/out from integers
       ;; which keep track of +-i/I and which don't.