(defun foo (symbol)
  (message "[1] %S" (symbol-name symbol))
  (setf (aref (symbol-name symbol) 1) ?x)
  (message "[2] %S" (symbol-name symbol)))