diff --git a/etc/tak.scm b/etc/tak.scm
index 4255f6e9..18c36372 100644
--- a/etc/tak.scm
+++ b/etc/tak.scm
@@ -5,8 +5,9 @@
 (define (time f)
   (let ((start (current-jiffy)))
     (f)
-    (/ (- (current-jiffy) start)
-       (jiffies-per-second))))
+    (inexact
+     (/ (- (current-jiffy) start)
+        (jiffies-per-second)))))
 
 (define (tak x y z)
   (if (> x y)