diff --git a/collects/frtime/frtime.ss b/collects/frtime/frtime.ss
index 77e8e04b03..666141272c 100644
--- a/collects/frtime/frtime.ss
+++ b/collects/frtime/frtime.ss
@@ -3,9 +3,19 @@
   (require (lib "frp-snip.ss" "frtime"))
   (require (lib "ft-qq.ss" "frtime"))
   
+  (define (value-nowable? x)
+    #t)
+
+  (define ((behaviorof pred) x)
+    (let ([v (value-now x)])
+      (or (undefined? v)
+          (pred v))))
+
+
   ;(provide-for-syntax (rename (lib "mzscheme-utils.ss" "frtime") syntax->list syntax->list))
   
-  (provide (all-from (lib "mzscheme-utils.ss" "frtime"))
+  (provide value-nowable? behaviorof
+	   (all-from (lib "mzscheme-utils.ss" "frtime"))
            (all-from (lib "lang-ext.ss" "frtime"))
            (all-from (lib "frp-snip.ss" "frtime"))
            (all-from (lib "ft-qq.ss" "frtime"))))