Index: /trunk/source/level-1/l1-files.lisp
===================================================================
--- /trunk/source/level-1/l1-files.lisp	(revision 14027)
+++ /trunk/source/level-1/l1-files.lisp	(revision 14028)
@@ -532,5 +532,4 @@
   (require-type reference-host '(or null string))
   (multiple-value-bind (sstr start end) (get-pathname-sstring string start end)
-    #-windows-target
     (if (and (> end start)
              (eql (schar sstr start) #\~))