   (let (composite-refac-p name msg result)
   (setq composite-refac-p (equal editor 'composite_emacs))
 
-  (ghc-read-lisp
-   (lambda ()
-     (message "Initializing...")
-     (call-process ghc-hare-command nil (get-buffer-create "*HaRe*") nil "liftOneLevel" current-file-name
-                   (number-to-string line-no) (number-to-string column-no))
-     (message "Initializing...done"))
-   )))
+  (let ((res
+        (ghc-read-lisp
+         (lambda ()
+           (message "Running...")
+           ;(call-process ghc-hare-command nil (get-buffer-create "*HaRe*") nil
+           (call-process ghc-hare-command nil t nil
+                         "liftOneLevel" current-file-name
+                         (number-to-string line-no) (number-to-string column-no))
+           (message "Running...done"))
+         )))
+    (with-current-buffer (get-buffer-create "*HaRe*") (insert (prin1-to-string res)))
+    (message "Res=%s" res)
+    (process-result current-file-name res line-no column-no composite-refac-p)
+   )
+  ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

        (buffer (current-buffer)))
    (if (buffers-saved)
        (hare-refactor-lift-one-1 current-file-name line-no column-no hare-search-paths 'emacs tab-width)
        ;; (message "hare-refactor-lift-one-1 %s %d %d %s" current-file-name line-no column-no hare-search-paths)
      (message "Refactoring aborted."))))



  (let ((dir (is-a-monitored-file curfilename)))
    (if (equal nil dir)
        nil
      (cond
       ((equal version-control-system 'ClearCase)
        (add-logmsg-to-logfile-clearcase logmsg))
       ((or (equal version-control-system 'Git)
