diff --git a/basis/windows/shell32/shell32.factor b/basis/windows/shell32/shell32.factor
index 6d1c7b1a36..c8dbe4b91c 100644
--- a/basis/windows/shell32/shell32.factor
+++ b/basis/windows/shell32/shell32.factor
@@ -86,7 +86,7 @@ FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFi
 ALIAS: ShellExecute ShellExecuteW
 
 : open-in-explorer ( dir -- )
-    f "open" rot (normalize-path) f f SW_SHOWNORMAL ShellExecute drop ;
+    [ f "open" ] dip (normalize-path) f f SW_SHOWNORMAL ShellExecute drop ;
 
 : shell32-directory ( n -- str )
     f swap f SHGFP_TYPE_DEFAULT