     (open-line 2)
     (insert "USING: "))
   (let ((start (point)))
-    (insert (mapconcat 'identity uses " ") " ;")
+    (insert (mapconcat 'substring-no-properties uses " ") " ;")
     (fill-region start (point) nil)))
 
 (defun fuel-debug--uses-filter (restarts)

    (define-key map "\C-c\C-c" 'fuel-debug--uses-update-usings)
    map))

(defun fuel-debug-uses-mode ()
  "A major mode for displaying Factor's USING: inference results."
  (interactive)

      (fuel-debug--uses-new-uses fuel-debug--uses-file fuel-debug--uses)
      (message "USING: updated!")
      (with-current-buffer (fuel-debug--uses-buffer)
        (insert "\nDone!")
        (fuel-debug--uses-clean)
        (bury-buffer)))))

(defun fuel-debug--uses-restart (n)
  (when (and (> n 0) (<= n (length fuel-debug--uses-restarts)))
