diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index 2ac08bdccd..2df669169a 100644
--- 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>