           (recur next-remaining new-out))))))
 
 (defn rstr-vec
-  "Create an r-str-vec with, possibly, a newline at the beginning if
-  the last thing before it is a comment."
-  ([options ind zloc r-str r-type respect-nl?] ; i132
-   (dbg-pr options "rstr-vec: respect-nl?" respect-nl?)
-   (let [nl nil #_(when (and (zcomment? (zlast zloc)) (not respect-nl?))
-              [[(str "\n" (blanks ind)) :none :indent 3]])]
-     (concat nl
-             [[r-str (zcolor-map options (or r-type r-str))
-               (or r-type :right) ind]])))
-  ([options ind zloc r-str] (rstr-vec options ind zloc r-str nil nil))
+  "Create an r-str-vec with the indent appropriate for the r-str if
+  it is preceded by a newline."
   ([options ind zloc r-str r-type]
-   (rstr-vec options ind zloc r-str r-type nil)))
+   [[r-str (zcolor-map options (or r-type r-str)) (or r-type :right) ind]])
+  ([options ind zloc r-str] (rstr-vec options ind zloc r-str nil)))
 
 (declare interpose-nl-hf)
 (declare fzprint-get-zloc-seq)

        l-str "["
        r-str "]"
        l-str-vec [[l-str (zcolor-map options l-str) :left]]
        r-str-vec (rstr-vec options ind #_(inc ind) zloc r-str)] ; i143
    (dbg-form options
              "fzprint-binding-vec exit:"
              (if (= (zcount zloc) 0)

        roptions options
        l-str-vec [[l-str (zcolor-map options l-str) :left]]
	; Fudge the ind a bit for r-str-vec for anon fns: #()
        r-str-vec (rstr-vec options (+ ind (max 0 (dec l-str-len))) zloc r-str) 
        _ (dbg-pr
            options
            "fzprint-list*:" (zstring zloc)
