diff --git a/basis/io/files/info/windows/windows.factor b/basis/io/files/info/windows/windows.factor index c0356af54e..fc651c366b 100755 --- a/basis/io/files/info/windows/windows.factor +++ b/basis/io/files/info/windows/windows.factor @@ -203,8 +203,8 @@ CONSTANT: names-buf-length 16384 0 uint [ GetVolumePathNamesForVolumeName win32-error=0/f ] 3keep nip uint deref head but-last-slice - { 0 } split* - [ { } ] [ [ alien>native-string ] map ] if-empty + { 0 } split-slice harvest + [ { } ] [ [ { 0 } append alien>native-string ] map ] if-empty ] with-destructors ; ! Can error with T{ windows-error f 21 "The device is not ready." }