Index: /trunk/ccl/lib/foreign-types.lisp
===================================================================
--- /trunk/ccl/lib/foreign-types.lisp	(revision 5780)
+++ /trunk/ccl/lib/foreign-types.lisp	(revision 5781)
@@ -1320,4 +1320,7 @@
 Lisp object of type indicated by result-type-specifier), or NIL if
 result-type-specifer is :VOID or NIL"
+  (funcall (ftd-ff-call-expand-function *target-ftd*)
+           `(%ff-call ,entry) args)
+  #+nil          
   (let* ((monitor (eq (car args) :monitor-exception-ports)))
     (when monitor