diff --git a/contrib/crypto/load.factor b/contrib/crypto/load.factor
index ef1405a8d3..3b5763aaec 100644
--- a/contrib/crypto/load.factor
+++ b/contrib/crypto/load.factor
@@ -2,6 +2,7 @@ REQUIRES: math ;
 
 PROVIDE: crypto {
     "common.factor"
+    "timing.factor"
     "base64.factor"
     "barrett.factor"
     "montgomery.factor"
diff --git a/contrib/crypto/timing.factor b/contrib/crypto/timing.factor
new file mode 100644
index 0000000000..35b76a9995
--- /dev/null
+++ b/contrib/crypto/timing.factor
@@ -0,0 +1,6 @@
+IN: timing
+USING: kernel threads ;
+
+: with-timed ( quot n -- )
+    #! force the quotation to execute in, at minimum, n milliseconds
+    millis rot call millis swap - - sleep ;