diff --git a/cyclone.scm b/cyclone.scm
index e4498d5d..69afc748 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -217,18 +217,18 @@
       (trace:info input-program) ;pretty-print
 
       ;; Identify native Scheme functions that can be inlined
-;      (define inlinable-scheme-fncs '())
-;      (for-each
-;        (lambda (e)
-;          (when (inlinable-top-level-function? e)
-;            (set! inlinable-scheme-fncs
-;              (cons (define->var e) inlinable-scheme-fncs))
-;            ;; TESTING, will not work yet
-;            (prim:add-udf! (define->var e) (define-c->inline-var e))
-;        ))
-;        input-program)
-;      (trace:info "---------------- results of inlinable-top-level-function analysis: ")
-;      (trace:info inlinable-scheme-fncs)
+      (define inlinable-scheme-fncs '())
+      (for-each
+        (lambda (e)
+          (when (inlinable-top-level-function? e)
+            (set! inlinable-scheme-fncs
+              (cons (define->var e) inlinable-scheme-fncs))
+            ;; TESTING, will not work yet
+            ;(prim:add-udf! (define->var e) (define-c->inline-var e))
+        ))
+        input-program)
+      (trace:info "---------------- results of inlinable-top-level-function analysis: ")
+      (trace:info inlinable-scheme-fncs)
 
       ;; Convert some function calls to primitives, if possible
       (set! input-program