diff --git a/scheme/cyclone/opti-test.scm b/scheme/cyclone/opti-test.scm
index 50655ab5..8930b710 100644
--- a/scheme/cyclone/opti-test.scm
+++ b/scheme/cyclone/opti-test.scm
@@ -3,6 +3,7 @@
         (scheme write)
         (scheme base))
 
+(adb:init!)
 (adb:set! 'v (adb:make-var))
 
 (let ((v (adb:get 'v)))
diff --git a/scheme/cyclone/optimize-cps.sld b/scheme/cyclone/optimize-cps.sld
index 2f3f278d..6d871c43 100644
--- a/scheme/cyclone/optimize-cps.sld
+++ b/scheme/cyclone/optimize-cps.sld
@@ -42,9 +42,11 @@
       adbf:unused-params adbf:set-unused-params!
   )
   (begin
-    (define *adb* #f) ;(make-hash-table))
+    (define *adb* (make-hash-table))
+    ;(define *adb* #f) ;(make-hash-table))
     (define (adb:init!)
-      (set! *adb* (make-hash-table)))
+      ;(set! *adb* (make-hash-table)))
+      'TODO)
     (define (adb:get key) (hash-table-ref *adb* key))
     (define (adb:set! key val) (hash-table-set! *adb* key val))
     (define-record-type <analysis-db-variable>