        (catch Throwable e (thrown tc e))))
 
 (defn- run-test-sequence [tc]
-  (debug "run-test-sequence" tc)
   (try 
     (let [state-sequences (map (fn [fix]
-				 (debug "Mapping over fixture" fix)
 				 (if (:sequential (meta fix))
-				   (do (debug "sequential fixture" fix)
-				       (setup fix))
-				   (do (debug "singular fixture" fix)
-				       (repeatedly (fn [] (setup fix))))))
+				   (setup fix)
+				   (repeatedly (fn [] (setup fix)))))
 			       (:fixtures tc))
-	  _unused_ (debug "state-sequences" state-sequences)
 	  argument-lists (apply map list state-sequences)]
-      (debug "argument-lists" argument-lists)
       (map (partial apply-test-case tc) argument-lists))
     (catch Throwable e (list (thrown tc e)))))
 

	 (catch Throwable e (thrown this e)))))

(defn- run-test-case [tc]
  (debug "run-test-case" tc)
  (try (let [states (map setup (:fixtures tc))
	     result (apply-test-case tc states)]
	 (dorun (map teardown (:fixtures tc)))

  (get-tests [this] (list this))
  RunnableTest
  (run-tests [this]
	     (lazy-seq
	      (list
	       (or (skip-or-pending this)
