diff --git a/test-lib-dep.scm b/test-lib-dep.scm
index adcd38e6..f64ef922 100644
--- a/test-lib-dep.scm
+++ b/test-lib-dep.scm
@@ -7,6 +7,7 @@
 
 (define append-dirs '())
 (define prepend-dirs '())
+;(define lib-dep '(tmp))
 (define lib-dep '(scheme cyclone common2))
 
 (let* ((sld-file (lib:import->filename lib-dep ".sld" append-dirs prepend-dirs))
@@ -14,15 +15,16 @@
       )
   (write (list 
           (file-mtime sld-file)
-          (file-mtime obj-file))))
+          (file-mtime obj-file)
+          (recompile? lib-dep)
+          )))
 
-;(define (recompile? lib-dep)
-;  (let* ((sld-file (lib:import->filename lib-dep ".sld" append-dirs prepend-dirs))
-;         (obj-file (lib:import->filename lib-dep ".o" append-dirs prepend-dirs))
-;        )
-;    (write (list 
-;            (file-mtime sld-file)
-;            (file-mtime obj-file))))
+(define (recompile? lib-dep)
+  (let* ((sld-file (lib:import->filename lib-dep ".sld" append-dirs prepend-dirs))
+         (obj-file (lib:import->filename lib-dep ".o" append-dirs prepend-dirs)) ;; TODO: update base name??
+        )
+    (> (file-mtime sld-file)
+       (file-mtime obj-file)))) ;; Is obj file out of date??
 
 (define-c file-mtime
   "(void *data, int argc, closure _, object k, object filename)"