diff --git a/winsup/w32api/ChangeLog b/winsup/w32api/ChangeLog
index 28be91b62..cc4735a18 100644
--- a/winsup/w32api/ChangeLog
+++ b/winsup/w32api/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-01  Martin Fuchs  <martin-fuchs@gmx.net>
+
+	* include/shlobj.h (SHCoCreateInstance): Add prototype..
+	* lib/shell32.def (SHCoCreateInstance): Add export stub.
+
 2004-01-01  Igor Pechtchanski  <pechtcha@cs.nyu.edu>
 
 	* lib/setupapi.def (CM_Request_Device_Eject[AW]): Add export.
diff --git a/winsup/w32api/include/shlobj.h b/winsup/w32api/include/shlobj.h
index 7386e58f5..ac5c02568 100644
--- a/winsup/w32api/include/shlobj.h
+++ b/winsup/w32api/include/shlobj.h
@@ -1018,6 +1018,8 @@ LPITEMIDLIST WINAPI ILFindLastID(LPCITEMIDLIST);
 LPITEMIDLIST WINAPI ILGetNext(LPCITEMIDLIST);
 UINT WINAPI ILGetSize(LPCITEMIDLIST);
 void WINAPI ILFree(LPITEMIDLIST);
+
+HRESULT WINAPI SHCoCreateInstance(LPCWSTR,REFCLSID,IUnknown*,REFIID,void**);
 #endif
 
 #ifdef UNICODE
diff --git a/winsup/w32api/lib/shell32.def b/winsup/w32api/lib/shell32.def
index 6684f7a5a..ac870eaf8 100644
--- a/winsup/w32api/lib/shell32.def
+++ b/winsup/w32api/lib/shell32.def
@@ -118,6 +118,7 @@ SHCreateQueryCancelAutoPlayMoniker@4
 SHCreateProcessAsUserW@4
 SHCreateDirectoryExW@12
 SHCreateDirectoryExA@12
+SHCoCreateInstance@20
 SHChangeNotify@16
 SHBrowseForFolderW@4
 SHBrowseForFolderA@4