 ;(defun insert-beta () (interactive) (insert ""))
 ;(defun insert-negation () (interactive) (insert ""))
 ;(defun insert-emptyset () (interactive) (insert ""))
+
+(defvar x-symbol-mode)
 
 (defun sw:x-symbol-toggle ()
   (customize-set-variable 'sw:use-x-symbol (not sw:use-x-symbol))

				       specware-major-version
				       specware-minor-version
				       specware-patch-number)))
	(widget-insert (about-specware-center specware-version))
	(widget-create 'link :help-echo "Specware Version Release Notes"
		       :action 'goto-specware-release-notes
		       :button-prefix ""
		       :button-suffix ""
		       specware-version)))
    (widget-insert "\n\n")
    (widget-create 'link :help-echo "Specware Web Page"
		   :action 'goto-specware-web-page
		   :button-prefix ""
		   :button-suffix ""
		   "Specware")
    (widget-insert " is a leading-edge automated software development system 
that allows users to precisely specify the desired functionality of 
their applications and to generate provably correct code based on 
these requirements. At the core of the design process in Specware 
lies stepwise refinement, in which users begin with a simple, abstract 
model of their problem and iteratively refine this model until it 
uniquely and concretely describes their application.")
    (widget-insert "\n")
    (about-specware-finish-buffer)
    (goto-char (point-min))
    (forward-line 1)))

  "Describe the Specware System"
  (interactive)
  (unless (about-specware-get-buffer "*About Specware*")
    (let* ((image-width (and specware-logo (car (image-size specware-logo))))
           (fill-column (window-width)))
      (when (> fill-column image-width)
	;; Center the image in the window.
	(insert (propertize " " 'display
			    `(space :align-to (+ center (-1.0 . ,specware-logo)))))

	;; Insert the image with a help-echo and a link.
	(make-button (prog1 (point) (insert-image specware-logo)) (point)
		     'face 'default
		     'help-echo "mouse-1, RET: Browse http://www.specware.org/"
		     'action (lambda (_button) (goto-specware-web-page))
		     'follow-link t)
	(insert "\n\n")))
    (when (inferior-lisp-running-p)
      (let* ((specware-major-version (sw:eval-in-lisp "cl-user::*Specware-Major-Version*"))
	     (specware-minor-version (sw:eval-in-lisp "cl-user::*Specware-Minor-Version*"))
