diff --git a/library/alien/structs.factor b/library/alien/structs.factor
index f9212c7073..ff5fe835d1 100644
--- a/library/alien/structs.factor
+++ b/library/alien/structs.factor
@@ -39,7 +39,7 @@ math namespaces parser strings words ;
 : array-constructor ( width -- )
     #! Make a word <foo-array> ( n -- byte-array ).
     "struct-name" get "-array" cat2 constructor-word
-    swap cell / ceiling [ * <byte-array> ] cons
+    swap [ * <byte-array> ] cons
     define-compound ;
 
 : define-nth ( width -- )
diff --git a/library/math/ratio.factor b/library/math/ratio.factor
index 5655dc705c..720dcb2ef0 100644
--- a/library/math/ratio.factor
+++ b/library/math/ratio.factor
@@ -39,5 +39,5 @@ M: ratio /i scale /i ;
 M: ratio /f scale /f ;
 
 M: ratio truncate >fraction /i ;
-M: ratio floor >fraction /mod dup 0 < [ 1 - ] when ;
-M: ratio ceiling >fraction /mod dup 0 > [ 1 + ] when ;
+M: ratio floor >fraction /i dup 0 < [ 1 - ] when ;
+M: ratio ceiling >fraction /i dup 0 > [ 1 + ] when ;