diff --git a/tools/main.scm b/tools/main.scm
index 0fa5bc0f..09354973 100644
--- a/tools/main.scm
+++ b/tools/main.scm
@@ -77,8 +77,8 @@
       (parameterize
           ((current-input-port
             (if program
-                (current-input-port)
-                (open-input-string program))))
+                (open-input-string program)
+                (current-input-port))))
         (main-loop))))
 
   (export repl))