diff --git a/scheme/time.sld b/scheme/time.sld
new file mode 100644
index 00000000..b67287ab
--- /dev/null
+++ b/scheme/time.sld
@@ -0,0 +1,12 @@
+(define-library (scheme time)
+  (export 
+    current-jiffy ;; TODO: This is just temporary, of course
+  )
+  (import (scheme base) 
+  )
+  (begin
+    (define-c prim-test 
+      "(void *data, int argc, closure _, object k, object arg1, object arg2)"
+      " return_closcall1(data,  k, arg1); ")
+    ;; End FFI
+  ))