 
 (defun tirepl-repl-mark-output-end ()
   (add-text-properties tirepl-repl-output-start tirepl-repl-output-end
-                       '(face tirepl-repl-output-face 
+                       '(;;face tirepl-repl-output-face 
                          rear-nonsticky (face))))
 
 (defun tirepl-repl-reset-repl-markers ()

    (tirepl-repl-add-to-input-history
     (buffer-substring tirepl-repl-input-start-mark end))
    (tirepl-repl-show-maximum-output)

    (let ((overlay (make-overlay tirepl-repl-input-start-mark end)))
      ;; These properties are on an overlay so that they won't be taken
      ;; by kill/yank.

            (when (not (bolp)) (insert-before-markers "\n"))
            
            (tirepl-repl-propertize-region
             `(face tirepl-repl-result-error-face rear-nonsticky (face))
             ;;`(face tirepl-repl-output-face rear-nonsticky (face))
             (insert-before-markers
              (format "Error during remote evaluation:\n")
              string))))))
