--- faces.el~	Thu Oct  4 19:14:53 2001
+++ faces.el	Sun Oct 28 16:50:20 2001
@@ -751,7 +751,8 @@
   (interactive (list (read-face-name "Invert face ")))
   (let ((fg (face-attribute face :foreground frame))
 	(bg (face-attribute face :background frame)))
-    (if (or fg bg)
+    (if (or (not (eq fg 'unspecified))
+	    (not (eq bg 'unspecified)))
 	(set-face-attribute face frame :foreground bg :background fg)
       (set-face-attribute face frame
 			  :foreground