diff --git a/extra/math/blas/matrices/matrices-tests.factor b/extra/math/blas/matrices/matrices-tests.factor
index 638fbc9f69..8bbd345693 100644
--- a/extra/math/blas/matrices/matrices-tests.factor
+++ b/extra/math/blas/matrices/matrices-tests.factor
@@ -707,11 +707,11 @@ sequences tools.test ;
     } Mtranspose 2 1 3 2 Msub
 ] unit-test
 
-! Bugfix: blas-matrix-base did not handle `f smatrix{ } equal?`
+! Bugfix: blas-matrix-base did not handle `f Smatrix{ } equal?`
 { f } [
-    f smatrix{
-        svector{ 1.0 2.0 3.0 4.0 }
-        svector{ 2.0 2.0 3.0 4.0 }
-        svector{ 3.0 2.0 3.0 4.0 }
+    f Smatrix{
+        Svector{ 1.0 2.0 3.0 4.0 }
+        Svector{ 2.0 2.0 3.0 4.0 }
+        Svector{ 3.0 2.0 3.0 4.0 }
     } equal?
 ] unit-test
diff --git a/extra/math/cardinality/cardinality.factor b/extra/math/cardinality/cardinality.factor
index 3976c4628e..8d064f8caf 100644
--- a/extra/math/cardinality/cardinality.factor
+++ b/extra/math/cardinality/cardinality.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2012 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 USING: arrays kernel layouts locals math math.functions
-math.order math.statistics sequences ;
+math.order math.statistics sequences combinators.smart ;
 IN: math.cardinality
 
 GENERIC: trailing-zeros ( m -- n )