     (let [zloc-seq (nthnext zloc-seq (inc next-count))]
       (dbg-pr "get-zloc-seq-right:" (map zstring zloc-seq))
       zloc-seq)))
+
 
 ;;
 ;; # Indent-only support

         previous-comment? nil]
    (if (empty? coll)
      (let [result (persistent! out)]
        (prn "precede-w-nl: exit:" result)
        (if previous-comment? (butlast result) result))
      (let [[[s color what] :as element] (first coll)
            ; This element may have many things in it, or sometimes

                                      :newline-first))))
              ; Nothing else after arg-1-zloc
              :noseq)
	      )
	      :noseq)
          r-str-vec))))

