diff --git a/basis/windows/dragdrop-listener/dragdrop-listener.factor b/basis/windows/dragdrop-listener/dragdrop-listener.factor
index 3ba0bcaf6e..eecc3cc6b9 100644
--- a/basis/windows/dragdrop-listener/dragdrop-listener.factor
+++ b/basis/windows/dragdrop-listener/dragdrop-listener.factor
@@ -33,7 +33,7 @@ IN: windows.dragdrop-listener
 TUPLE: listener-dragdrop hWnd last-drop-effect ;
 
 : <listener-dragdrop> ( hWnd -- object )
-    DROPEFFECT_NONE listener-dragdrop construct-boa ;
+    DROPEFFECT_NONE listener-dragdrop boa ;
 
 SYMBOL: +listener-dragdrop-wrapper+
 {