diff --git a/src/tl/tl/tlStream.cc b/src/tl/tl/tlStream.cc
index 60758c7ed..0ce17a848 100644
--- a/src/tl/tl/tlStream.cc
+++ b/src/tl/tl/tlStream.cc
@@ -883,10 +883,17 @@ InputPipe::~InputPipe ()
 void
 InputPipe::close ()
 {
+  wait ();
+}
+
+int InputPipe::wait ()
+{
+  int ret = 0;
   if (m_file != NULL) {
-    fclose (m_file);
+    ret = _pclose (m_file);
     m_file = NULL;
   }
+  return ret;
 }
 
 size_t