diff --git a/cyclone.scm b/cyclone.scm
index 0a8f34a5..f286e4ce 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -24,6 +24,14 @@
 
 (define *optimization-level* 2) ;; Default level
 
+; Placeholder for future enhancement to show elapsed time by phase:
+;(define *start* (current-second))
+;(define (elapsed label)
+;  (display "Elapsed is " (current-error-port))
+;  (display (- (current-second) *start*) (current-error-port))
+;  (display (string-append " at " label) (current-error-port))
+;  (newline (current-error-port)))
+
 ;; Code emission.
   
 ; c-compile-and-emit : (string -> A) exp -> void