diff --git a/rs.rkt b/rs.rkt
index bb19216..4c2c6cf 100644
--- a/rs.rkt
+++ b/rs.rkt
@@ -107,7 +107,7 @@
 
 ;;; Reads a context sequence from an Org sexp corresponding to a list.
 (define (read-context-sequence str)
-  (map (compose list->set read-symbol-list) (flatten (read-org-sexp str))))
+  (map (compose list->set read-symbol-list) (flatten (string->any str))))
 
 ;;; Converts a reaction to a triple of strings.
 (define/match (reaction->str-triple r)