basis: ERROR: changes.

[factor.git] / basis / windows / com / com.factor

diff --git a/basis/windows/com/com.factor b/basis/windows/com/com.factor
index 15abd924d827b6cb82bda3d3d06572e0ddf745e3..d69e02ab8d8888834dbe487791486b43b4030c34 100644 (file)
--- a/basis/windows/com/com.factor
+++ b/basis/windows/com/com.factor
@@ -94,7 +94,7 @@ FUNCTION: void ReleaseStgMedium ( LPSTGMEDIUM pmedium )
 
 ERROR: null-com-release ;
 : com-release ( interface -- )
-    [ IUnknown::Release drop ] [ null-com-release ] if* ; inline
+    [ IUnknown::Release drop ] [ throw-null-com-release ] if* ; inline
 
 : with-com-interface ( interface quot -- )
     over [ com-release ] curry [ ] cleanup ; inline