diff --git a/basis/compiler/tree/propagation/known-words/known-words.factor b/basis/compiler/tree/propagation/known-words/known-words.factor
index 563abc8e52..24fb3e83ac 100644
--- a/basis/compiler/tree/propagation/known-words/known-words.factor
+++ b/basis/compiler/tree/propagation/known-words/known-words.factor
@@ -239,9 +239,13 @@ generic-comparison-ops [
     '[ _ swap interval>> <class/interval-info> ] "outputs" set-word-prop
 ] assoc-each
 
-{ numerator denominator >fraction }
+{ numerator denominator }
 [ [ drop integer <class-info> ] "outputs" set-word-prop ] each
 
+\ >fraction [
+    drop integer <class-info> dup
+] "outputs" set-word-prop
+
 { (log2) fixnum-log2 bignum-log2 } [
     [
         [ class>> ] [ interval>> interval-log2 ] bi <class/interval-info>