*** calc-embed.el.orig	Fri Oct 24 13:32:33 2003
--- calc-embed.el	Fri Oct 24 13:34:09 2003
***************
*** 556,562 ****
  	       (not (eq (cdr found) 'default)))
  	  (progn
  	    (if (eq (setq value (cdr (car v))) 'default)
! 		(setq value (cdr (assq (car (car v)) calc-mode-var-list))))
  	    (equal (symbol-value (car (car v))) value))
  	  (progn
  	    (setq changed t)
--- 556,562 ----
  	       (not (eq (cdr found) 'default)))
  	  (progn
  	    (if (eq (setq value (cdr (car v))) 'default)
! 		(setq value (list (nth 1 (assq (car (car v)) calc-mode-var-list)))))
  	    (equal (symbol-value (car (car v))) value))
  	  (progn
  	    (setq changed t)