io.files.info.windows: Fix file-systems word in two ways. First, don't

[factor.git] / basis / io / files / windows / windows.factor

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 269865fb723ffe0b5597ebf1e9a8b634337f5e13..3617a126f7a01a9b8f71553be23570b6bd967394 100755 (executable)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -327,8 +327,7 @@ SLOT: attributes
 
 M: windows cwd
     MAX_UNICODE_PATH dup ushort <c-array>
-    [ GetCurrentDirectory win32-error=0/f ] keep
-    utf16n alien>string ;
+    [ GetCurrentDirectory win32-error=0/f ] keep alien>native-string ;
 
 M: windows cd
     SetCurrentDirectory win32-error=0/f ;