--- a/lisp/viper/viper-util.el	Mon Aug 13 08:51:05 2007 +0200
+++ b/lisp/viper/viper-util.el	Mon Aug 13 08:51:32 2007 +0200
@@ -53,6 +53,14 @@
 
 ;;; XEmacs support
 
+;; A fix for NeXT Step
+;; Should probably be eliminated in later versions.
+(if (and (vip-window-display-p) (eq (vip-device-type) 'ns))
+    (progn
+      (fset 'x-display-color-p (symbol-function 'ns-display-color-p))
+      (fset 'x-color-defined-p (symbol-function 'ns-color-defined-p))
+      ))
+
 (if vip-xemacs-p
     (progn
       (fset 'vip-read-event (symbol-function 'next-command-event))
@@ -85,6 +93,7 @@
 	 (fset 'vip-color-defined-p (symbol-function 'x-color-defined-p))
 	 )))
 
+
 (fset 'vip-characterp
       (symbol-function
        (if vip-xemacs-p 'characterp 'integerp)))