diff --git a/prv-xemacs.el b/prv-xemacs.el
--- a/prv-xemacs.el
+++ b/prv-xemacs.el
@@ -743,6 +743,12 @@
 				(nth 1 image)
 				(nth 2 image)))))
 
+(if (eq system-type 'windows-nt)
+    (defadvice preview-ps-quote-filename (around path-sep-to-slash)
+      "Make path separator to slash so that the function will not be confused."
+      (let ((directory-sep-char ?/))
+	ad-do-it)))
+
 (provide 'prv-xemacs)
 
 ;;; Local variables: