diff --git a/goaljobs.ml b/goaljobs.ml
index 3be5b51a59faed5dc1da6d7b6dc74bb0de8da4e3..e83f00e87ae8e2cf53eb2b0be89058b4080dfa95 100644
--- a/goaljobs.ml
+++ b/goaljobs.ml
@@ -275,6 +275,7 @@ let do_shlines script =
   let lines = ref [] in
   let rec loop () =
     let line = input_line chan in
+    eprintf "%s\n%!" line;
     lines := line :: !lines;
     loop ()
   in