diff --git a/extra/ui/tools/interactor/interactor.factor b/extra/ui/tools/interactor/interactor.factor
index d0791ac5ab..ca70895b09 100644
--- a/extra/ui/tools/interactor/interactor.factor
+++ b/extra/ui/tools/interactor/interactor.factor
@@ -137,7 +137,7 @@ M: interactor stream-read-partial
             [ restore-vars parse ] keep save-vars
         ] [
             >r f swap set-interactor-busy? drop r>
-            dup [ unexpected-eof? ] is? [ drop f ] when
+            dup delegate unexpected-eof? [ drop f ] when
         ] recover
     ] with-scope ;