diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index d990f610a0..981216a9cb 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,5 +1,6 @@
 - workspace window takes too long to come up
 - bogus compile error
+- windows crash
 - live search: timer delay would be nice
 
 + 0.87:
diff --git a/library/compiler/alien/alien-invoke.factor b/library/compiler/alien/alien-invoke.factor
index 2f6de781e1..adb0627db4 100644
--- a/library/compiler/alien/alien-invoke.factor
+++ b/library/compiler/alien/alien-invoke.factor
@@ -65,7 +65,7 @@ M: alien-invoke-error summary
     [ ] [ f swap c-type c-type-box ] if-void ;
 
 : generate-invoke-cleanup ( node -- )
-    dup alien-invoke-abi [
+    dup alien-invoke-abi "stdcall" = [
         drop
     ] [
         alien-invoke-parameters stack-space %cleanup