diff --git a/CHANGELOG.md b/CHANGELOG.md
index 1193ce24..0820cb92 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,6 @@
 # Changelog
 
-## 0.26 - TBD
+## 0.26
 
 Features
 
@@ -9,6 +9,7 @@ Features
 Bug Fixes
 
 - Allow `pretty-print` to display contents of a record type.
+- Re-enable optimizations that were broken when `vector?` was modified to no longer return true for record types.
 
 ## 0.25 - January 25, 2021
 
diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index b60fe5ed..56ef7f75 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -2131,7 +2131,7 @@
           ;;(write exp) (newline)
           (and-let* (((define? exp))
                       (def-exps (define->exp exp))
-                     ((vector? (car def-exps)))
+                     ((record? (car def-exps)))
                      ((ast:lambda? (car def-exps)))
                      )
            (scan (car (ast:lambda-body (car def-exps))) (define->var exp))))
@@ -2175,7 +2175,7 @@
           ;;(write exp) (newline)
           (and-let* (((define? exp))
                       (def-exps (define->exp exp))
-                     ((vector? (car def-exps)))
+                     ((record? (car def-exps)))
                      ((ast:lambda? (car def-exps)))
                      )
            (scan (car (ast:lambda-body (car def-exps))) (define->var exp))))
@@ -2266,7 +2266,7 @@
           ;(trace:info `(analyze:find-recursive-calls ,exp))
           (and-let* (((define? exp))
                       (def-exps (define->exp exp))
-                     ((vector? (car def-exps)))
+                     ((record? (car def-exps)))
                      ((ast:lambda? (car def-exps)))
                      (id (ast:lambda-id (car def-exps)))
                      )