diff --git a/dlls/ole32/compobj.spec b/dlls/ole32/compobj.spec
index 078dfc2..bc494c3 100644
--- a/dlls/ole32/compobj.spec
+++ b/dlls/ole32/compobj.spec
@@ -70,7 +70,7 @@
 70 stub _IID_ISTDMARSHALINFO
 71 pascal CoCreateStandardMalloc(long ptr) CoCreateStandardMalloc16
 72 stub _IID_IEXTERNALCONNECTION
-73 stub COCREATEGUID
+73 pascal COCREATEGUID(ptr) CoCreateGuid16
 75 stub FNASSERT
 76 pascal StringFromGUID2(ptr ptr word) StringFromGUID2
 77 stub COGETCLASSEXT
diff --git a/dlls/ole32/ole16.c b/dlls/ole32/ole16.c
index b89efa8..cf56123 100644
--- a/dlls/ole32/ole16.c
+++ b/dlls/ole32/ole16.c
@@ -255,6 +255,15 @@ void WINAPI CoUninitialize16(void)
 }
 
 /***********************************************************************
+ *           COCREATEGUID [COMPOBJ.17]
+ * Creates a GUID?
+ */
+HRESULT WINAPI CoCreateGuid16(GUID *guid)
+{
+    return CoCreateGuid(guid);
+}
+
+/***********************************************************************
  *           IsEqualGUID [COMPOBJ.18]
  *
  * Compares two Unique Identifiers.