windows.dragdrop-listener: fix filenames-from-hdrop implementation

diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index 2ac08bdccdc05fc55d902c6eea9f9e490b0dd038..2df669169af4e59fc31cf75092e61d4705f549df 100644 (file)
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -11,7 +11,7 @@ IN: windows.dragdrop-listener
     0xFFFFFFFF f 0 DragQueryFile ;
 
 : filenames-from-hdrop ( hdrop -- filenames )
-    dup filecount-from-hdrop
+    dup filecount-from-hdrop <iota>
     [
         2dup f 0 DragQueryFile 1 + ! get size of filename buffer
         dup WCHAR <c-array>