                    (let [[header pin] (if (coll? pin-spec)
                                         pin-spec
                                         [header pin-spec])]
-                     (bb/gpio header pin :on)))
+                     (bb/gpio header pin :out)))
                  pins))
         (assoc :ms-wait ms-wait))))
 

  (forward! [this]
    (with-sleeps (or (:ms-wait this) 20)
      (bb/write! power :off)
      (bb/writes! [+pin -pin] :on)
      (bb/write! power :on)))
  (reverse! [this]
    (with-sleeps (or (:ms-wait this) 20)
      (bb/write! power :off)
      (bb/writes! [+pin -pin] :off)
      (bb/write! power :on)))
  (stop! [_]
    (bb/write! power :off)))

  (forward! [this]
    (with-sleeps (or (:ms-wait this) 10)
      (bb/write! power :off)
      (bb/write! pin :off)
      (bb/write! power :on)))
  (reverse! [this]
    (with-sleeps (or (:ms-wait this) 10)
      (bb/write! power :off)
      (bb/write! pin :on)
      (bb/write! power :on)))
  (stop! [_]
    (bb/write! power :off)))
