diff --git a/trans.scm b/trans.scm
index 00d9d18e..a5996fd1 100644
--- a/trans.scm
+++ b/trans.scm
@@ -582,7 +582,8 @@
       (lambda (return)
         (for-each
           (lambda (expr)
-            (if (not (const? expr))
+            (if (or (vector? expr)
+                    (not (const? expr)))
               (return #f)))
           (cdr ast))
         #t))))