X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fwindows%2Fshell32%2Fshell32.factor;fp=basis%2Fwindows%2Fshell32%2Fshell32.factor;h=8dcc5ea85048c5ded062cfd3ef2a07484507aa33;hp=89dd6a89caa251d1d0e7b5f68ba4bbe9ebdf145d;hb=7ec2ba15ef18bc0a2ec05e075758eb5f315c8a13;hpb=48191c249b8441268c42f1e453c8945bc81db3df

diff --git a/basis/windows/shell32/shell32.factor b/basis/windows/shell32/shell32.factor
index 89dd6a89ca..8dcc5ea850 100644
--- a/basis/windows/shell32/shell32.factor
+++ b/basis/windows/shell32/shell32.factor
@@ -125,7 +125,7 @@ FUNCTION: DWORD_PTR SHGetFileInfoW ( LPCTSTR pszPath,
 : shell32-file-info ( path -- err struct )
     normalize-path
     0
-    SHFILEINFO <struct>
+    SHFILEINFO new
     [ dup byte-length SHGFI_EXETYPE SHGetFileInfoW ] keep ;
 
 SINGLETONS: