com.wrapper: create -> create-word

diff --git a/basis/windows/com/wrapper/wrapper.factor b/basis/windows/com/wrapper/wrapper.factor
index 88c8d288590f2b53997475b05f5780fc2b49000a..c191317656f267691da0d585dfe8fe670e5e4212 100644 (file)
--- a/basis/windows/com/wrapper/wrapper.factor
+++ b/basis/windows/com/wrapper/wrapper.factor
@@ -98,7 +98,7 @@ unless
 
 : (callback-word) ( function-name interface counter -- word )
     [ name>> "::" rot 3append "-callback-" ] dip number>string 3append
-    "windows.com.wrapper.callbacks" create ;
+    "windows.com.wrapper.callbacks" create-word ;
 
 : (finish-thunk) ( param-count thunk quot -- thunked-quot )
     [ [ drop [ ] ] [ swap 1 - '[ _ _ ndip ] ] if-empty ]