                     (conj! out style-vec)
                     (conj-it! out
                               (repeat-element-nl addtl-nl-needed (first sep))
-                              #_(repeat addtl-nl-needed (first sep))
                               style-vec))
                   (if (zero? addtl-nl-needed)
                     (conj-it! out interpose-style-vec style-vec)
                     (conj-it! out
                               (trimr-blanks-style-vec interpose-style-vec)
                               (repeat-element-nl addtl-nl-needed (first sep))
-                              #_(repeat addtl-nl-needed (first sep))
                               style-vec)))
-                #_(if previous-needs-comma?
-                    (conj-it! out (if add-nl? sep-comma-nl sep-comma) style-vec)
-                    (if first?
-                      ;(empty? out)
-                      (conj! out style-vec)
-                      (conj-it! out (if add-nl? sep-nl sep) style-vec)))
-		(and comma?
-		  ; We got rid of newlines above
-		  (not= what :comment)
-		  (not= what :comment-inline)
-		  ; Is there a non comment or non newline/indent element
-		  ; left in coll, or is this the last one? 
-		  ; This returns the [hangflow style-vec], but we are not
-		  ; using the data, just the existence of the thing here
-		  (next-non-comment-nl (next coll)))
-
-                #_(when pred-fn (pred-fn style-vec))
+                (and comma?
+                     ; We got rid of newlines above
+                     (not= what :comment)
+                     (not= what :comment-inline)
+                     ; Is there a non comment or non newline/indent element
+                     ; left in coll, or is this the last one?
+                     ; This returns the [hangflow style-vec], but we are not
+                     ; using the data, just the existence of the thing here
+		     ; Fix for Issue #137.
+                     (next-non-comment-nl (next coll)))
                 ; should we put an extra new-line before the next element?
                 ; Two styles here:
                 ;  o  always put one if the previous pair contained a new-line

      (if (empty? pair-seq)
        (concat-no-nil l-str-vec r-str-vec)
        (let [_ (dbg-pr options
                     "fzprint-map*:" (zstring zloc)
                     "ind:" ind
                     "comma?" comma?
                     "rightcnt:" (:rightcnt options))
              ; A possible one line representation of this map, but this is
              ; optimistic and needs to be validated.
              pair-print-one-line

                nil ;first?
                (if (do #_(prn "interpose-either-nl-hf style-vec:" style-vec
                               "newline-count:" newline-count)
                        nil
                        #_(or (= (nth (last style-vec) 2) :comment)
                              (= (nth (last style-vec) 2) :comment-inline)))
                  ; i132
                  (do (println "******************") 1)
                  0) ;newline-count
                )))))))

(defn interpose-nl-hf
