diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 68ad2834..a458f841 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -1716,8 +1716,8 @@
         )
 
         ;; Memoize pure functions, if instructed
-        (let ((module-globals-pair (assoc 'module-globals options)))
-          (when (and module-globals-pair #t ;; TODO: (assoc 'memoize-pure-functions options)
+        (let ((module-globals-pair (assoc 'module-globals (car options))))
+          (when (and module-globals-pair #t ;; TODO: (assoc 'memoize-pure-functions (car options))
                 )
             (set! new-ast (opt:memoize-pure-fncs new-ast (cdr module-globals-pair))))
         )