печатать только текст, отбрасывая свойства текста

У меня есть следующая функция для печати строки, где точка указывает на буфер * scratch *,

(defun print-line ()
  (print (thing-at-point 'line) (get-buffer "*scratch*")))

но она печатает даже fontified info like this

#(" OFFICE
" 0 2 (fontified t org ...

Как отказаться от печати фонированной информации.