       (backward-sexp)
       (let ((column (current-column)))
         (goto-char (shm-node-end current))
-        (newline)
+        (shm-newline)
         (indent-to column)
         (insert ",")
         (insert (make-string (abs (- (shm-node-start-column current)

                 (point))))
    (let ((column (shm-node-start-column (shm-current-node))))
      (insert "\\")
      (newline)
      (indent-to column)
      (insert "\\")))
   ((and (looking-at "[^])}\"]") ;; This is a cheap solution. It

                                nil)))
          (shm/reparse)
          (forward-char -1)
          (shm-newline)
          (indent-to (+ (shm-indent-spaces)
                        start))
          (shm-insert-indented (lambda () (insert swing-string))))))
