Index: /trunk/source/level-1/linux-files.lisp
===================================================================
--- /trunk/source/level-1/linux-files.lisp	(revision 14333)
+++ /trunk/source/level-1/linux-files.lisp	(revision 14334)
@@ -869,5 +869,5 @@
 (defun %delete-file (name)
   (with-filename-cstrs ((n name))
-    (int-errno-call (#+windows-target #__unlink #-windows-target #_unlink n))))
+    (int-errno-call (#+windows-target #__wunlink #-windows-target #_unlink n))))
 
 (defun os-command (string)
Index: /trunk/source/lib/pathnames.lisp
===================================================================
--- /trunk/source/lib/pathnames.lisp	(revision 14333)
+++ /trunk/source/lib/pathnames.lisp	(revision 14334)
@@ -83,6 +83,7 @@
 			(new new-name))
     #+windows-target
-    (#__unlink new)
-    (let* ((res (#_rename old new)))
+    (#__wunlink new)
+    (let* ((res #-windows-target (#_rename old new)
+		#+windows-target (#__wrename old new)))
       (declare (fixnum res))
       (if (zerop res)