diff --git a/basis/alien/fortran/fortran.factor b/basis/alien/fortran/fortran.factor
index 00dd8583fc..c7688fbe3a 100644
--- a/basis/alien/fortran/fortran.factor
+++ b/basis/alien/fortran/fortran.factor
@@ -5,7 +5,7 @@ byte-arrays combinators combinators.short-circuit fry generalizations
 kernel lexer macros math math.parser namespaces parser sequences
 splitting stack-checker vectors vocabs.parser words locals
 io.encodings.ascii io.encodings.string shuffle effects math.ranges
-math.order sorting ;
+math.order sorting system ;
 IN: alien.fortran
 
 ! XXX this currently only supports the gfortran/f2c abi.
diff --git a/basis/math/blas/ffi/ffi.factor b/basis/math/blas/ffi/ffi.factor
index 7b0138357a..03043e54ed 100644
--- a/basis/math/blas/ffi/ffi.factor
+++ b/basis/math/blas/ffi/ffi.factor
@@ -27,9 +27,9 @@ FUNCTION: COMPLEX CDOTU
 FUNCTION: COMPLEX CDOTC
     ( INTEGER N, COMPLEX(*) X, INTEGER INCX, COMPLEX(*) Y, INTEGER INCY ) ;
 
-SUBROUTINE: DOUBLE-COMPLEX ZDOTU
+FUNCTION: DOUBLE-COMPLEX ZDOTU
     ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ;
-SUBROUTINE: DOUBLE-COMPLEX ZDOTC
+FUNCTION: DOUBLE-COMPLEX ZDOTC
     ( INTEGER N, DOUBLE-COMPLEX(*) X, INTEGER INCX, DOUBLE-COMPLEX(*) Y, INTEGER INCY ) ;
 
 FUNCTION: REAL SNRM2