diff --git a/rs-tests.rkt b/rs-tests.rkt
index f2fdb93..b64560b 100644
--- a/rs-tests.rkt
+++ b/rs-tests.rkt
@@ -33,7 +33,7 @@
          [dyn (dynamics rs)]
          [state1 (state (set) (list (set 'x) (set 'y) (set 'z) (set) (set 'z)))]
          [sgr (dds-build-state-graph-annotated dyn (set state1))]
-         [ip (build-interactive-process rs (list (set 'x) (set 'y) (set 'z) (set) (set 'z)))])
+         [ip (build-interactive-process-graph rs (list (set 'x) (set 'y) (set 'z) (set) (set 'z)))])
     (check-equal? (dds-step-one-annotated dyn state1)
                   (set (cons
                         (set 'a 'b)
diff --git a/rs.rkt b/rs.rkt
index 61e4e4a..142fe60 100644
--- a/rs.rkt
+++ b/rs.rkt
@@ -26,7 +26,7 @@
                [dds-build-n-step-state-graph (-> dynamics? (set/c state? #:kind 'dont-care) number? graph?)]
                [dds-build-state-graph-annotated (-> dynamics? (set/c state? #:kind 'dont-care) graph?)]
                [dds-build-n-step-state-graph-annotated (-> dynamics? (set/c state? #:kind 'dont-care) number? graph?)]
-               [build-interactive-process (-> reaction-system/c (listof (set/c species?)) graph?)]
+               [build-interactive-process-graph (-> reaction-system/c (listof (set/c species?)) graph?)]
                [pretty-print-state-graph (-> graph? graph?)])
  ;; Predicates
  (contract-out [species? (-> any/c boolean?)])
@@ -169,7 +169,7 @@
 ;;; context sequence.  When the context sequence is exhausted, keeps
 ;;; running the system without contexts.  In other words, the context
 ;;; sequence is padded with empty contexts at the end.
-(define (build-interactive-process rs contexts)
+(define (build-interactive-process-graph rs contexts)
   (dds-build-state-graph-annotated (dynamics rs)
                                    (set (state (set) contexts))))