From ec31bfe25390505a0dcab97b704a0a739131e313 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Fri, 9 May 2008 16:22:34 -0500
Subject: [PATCH] Get windows.com.wrapper to load

---
 extra/windows/com/wrapper/wrapper.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)
 mode change 100644 => 100755 extra/windows/com/wrapper/wrapper.factor

diff --git a/extra/windows/com/wrapper/wrapper.factor b/extra/windows/com/wrapper/wrapper.factor
old mode 100644
new mode 100755
index 7f63f529a6..ae5f03a594
--- a/extra/windows/com/wrapper/wrapper.factor
+++ b/extra/windows/com/wrapper/wrapper.factor
@@ -29,7 +29,7 @@ unless
             >r find-com-interface-definition family-tree
             r> 1quotation [ >r iid>> r> 2array ] curry map
         ] map-index concat
-        [ f ] add ,
+        [ f ] prefix ,
         \ case ,
         "void*" heap-size
         [ * rot <displaced-alien> com-add-ref 0 rot set-void*-nth S_OK ]
@@ -99,7 +99,7 @@ unless
 PRIVATE>
 
 : <com-wrapper> ( implementations -- wrapper )
-    (make-vtbls) f com-wrapper construct-boa ;
+    (make-vtbls) f com-wrapper boa ;
 
 M: com-wrapper dispose
     t >>freed?