diff --git a/scsh/rx/re-high.scm b/scsh/rx/re-high.scm
index 3b4bbf4..c8bb345 100644
--- a/scsh/rx/re-high.scm
+++ b/scsh/rx/re-high.scm
@@ -33,8 +33,8 @@
      ((re-dsm? re)
       (check-cache re-dsm:posix set-re-dsm:posix))
 
-     ((re-bos? re) (or bos-cre (set! bos-cre (compile))))
-     ((re-eos? re) (or eos-cre (set! eos-cre (compile))))
+     ((re-bos? re) (if (not bos-cre) (set! bos-cre (compile))) bos-cre)
+     ((re-eos? re) (if (not eos-cre) (set! eos-cre (compile))) eos-cre)
 
      ((re-bol? re) (error "BOL regexp not supported in this implementation."))
      ((re-eol? re) (error "EOL regexp not supported in this implementation."))