diff --git a/src/re_frame/flow/alpha.cljc b/src/re_frame/flow/alpha.cljc
index 13c04f336..c89eb7838 100644
--- a/src/re_frame/flow/alpha.cljc
+++ b/src/re_frame/flow/alpha.cljc
@@ -15,10 +15,7 @@
 
 (def flows (r/atom {}))
 
-(defn lookup [x]
-  (cond
-    (flow? x) x
-    (id? x) (get @flows x)))
+(defn lookup [id] (get @flows id))
 
 (defn id [x]
   (cond-> x (flow? x) :id))