diff --git a/if1632/compobj.spec b/if1632/compobj.spec
index 8b4c0e7b41d..ab7dc4ad7f5 100644
--- a/if1632/compobj.spec
+++ b/if1632/compobj.spec
@@ -6,7 +6,7 @@ type	win16
 3 pascal CoUninitialize() CoUninitialize16
 4 pascal CoGetMalloc(long ptr) CoGetMalloc16
 5 pascal CoRegisterClassObject(ptr ptr long long ptr) CoRegisterClassObject16
-6 stub COREVOKECLASSOBJECT
+6 pascal CoRevokeClassObject(long) CoRevokeClassObject16
 7 pascal CoGetClassObject(ptr long ptr ptr ptr) CoGetClassObject
 8 stub COMARSHALINTERFACE
 9 stub COUNMARSHALINTERFACE
diff --git a/ole/compobj.c b/ole/compobj.c
index e51179fa42c..3cb28cc1b66 100644
--- a/ole/compobj.c
+++ b/ole/compobj.c
@@ -997,6 +997,18 @@ HRESULT WINAPI CoRegisterClassObject16(
 	return 0;
 }
 
+
+/******************************************************************************
+ *      CoRevokeClassObject16 [COMPOBJ.6]
+ *
+ */
+HRESULT WINAPI CoRevokeClassObject16(DWORD dwRegister /* token on class obj */)
+{
+    FIXME("(0x%08lx),stub!\n", dwRegister);
+    return 0;
+}
+
+
 /***
  * COM_GetRegisteredClassObject
  *