diff --git a/contrib/crypto/rsa.factor b/contrib/crypto/rsa.factor
index 4c7f3c54e7..e082e431fa 100644
--- a/contrib/crypto/rsa.factor
+++ b/contrib/crypto/rsa.factor
@@ -16,8 +16,7 @@ TUPLE: rsa e d n ;
     [
         2 /i generate-two-unique-primes [ q set p set ] 2keep [ * n set ] 2keep
         [ 1- ] 2apply * m set
-        m get next-miller-rabin-prime ee set
-        m get ee get find-relative-prime* ee set
+        65537 ee set
         m get ee get mod-inv m get + d set
         ee get d get n get <rsa>
     ] with-scope ;
diff --git a/contrib/crypto/test/rsa.factor b/contrib/crypto/test/rsa.factor
index f6d2598319..cddad58897 100644
--- a/contrib/crypto/test/rsa.factor
+++ b/contrib/crypto/test/rsa.factor
@@ -3,5 +3,5 @@ USING: kernel math test namespaces crypto ;
 [ 123456789 ] [ 128 generate-rsa-keypair 123456789 over rsa-encrypt swap rsa-decrypt ] unit-test
 [ 123456789 ] [ 129 generate-rsa-keypair 123456789 over rsa-encrypt swap rsa-decrypt ] unit-test
 [ 123456789 ] [ 130 generate-rsa-keypair 123456789 over rsa-encrypt swap rsa-decrypt ] unit-test
-
+[ 123 ] [ 17 2753 3233 <rsa> 123 over rsa-encrypt swap rsa-decrypt ] unit-test