             loc (loc-for-offset rloc line-start)]
         (if (and (#{:string, :string-body} (loc-tag loc)) (< (start-offset loc) line-start))
           t
-          (let [indent (indent-column rloc line-start)
+          (let [indent (indent-column rloc line-start force-two-spaces-indent)
                 cur-indent-col (- 
                                  (loop [o line-start]
                                    (if (>= o (.length text)) 

                   {:text text 
                    :offset (inc offset) 
                    :length 0 
                    :modifs [{:text *newline* :offset offset :length length}]})]
    (if (-?> r :modifs count (= 2))
      (let [m1 (get-in r [:modifs 0])
            m2 (get-in r [:modifs 1])

            (cond
              (nil? seen-loc) 
                (+ (loc-col loc) (loc-count loc) 1)
              (or force-two-spaces-indent (lisp-form? (loc-text (first seen-loc)))
                  (inline-implementation? (first seen-loc)))
                (+ (loc-col loc) (loc-count loc) 1)
              (second seen-loc)
