--- a/src/oct-prcstrm.cc	Fri Sep 01 05:52:57 2000 +0000
+++ b/src/oct-prcstrm.cc	Thu Sep 07 04:59:04 2000 +0000
@@ -38,15 +38,9 @@
 octave_iprocstream::octave_iprocstream (const std::string& n,
 					std::ios::openmode arg_md,
 					oct_mach_info::float_format flt_fmt)
-  : octave_istdiostream (n, 0, arg_md, flt_fmt)
+  : octave_istdiostream (n, ::popen (n.c_str (), "r"), ::pclose,
+			 arg_md, flt_fmt)
 {
-  fp = popen (n.c_str (), "r");
-
-  if (fp)
-    {
-      delete is;
-      is = new i_c_file_ptr_stream (fp);
-    }
 }
 
 octave_iprocstream::~octave_iprocstream (void)
@@ -54,16 +48,6 @@
   do_close ();
 }
 
-void
-octave_iprocstream::do_close (void)
-{
-  if (fp)
-    {
-      pclose (fp);
-      fp = 0;
-    }
-}
-
 octave_stream
 octave_oprocstream::create (const std::string& n, std::ios::openmode arg_md,
 			    oct_mach_info::float_format flt_fmt)
@@ -74,15 +58,9 @@
 octave_oprocstream::octave_oprocstream (const std::string& n,
 					std::ios::openmode arg_md,
 					oct_mach_info::float_format flt_fmt)
-  : octave_ostdiostream (n, 0, arg_md, flt_fmt)
+  : octave_ostdiostream (n, ::popen (n.c_str (), "w"), ::pclose,
+			 arg_md, flt_fmt)
 {
-  fp = popen (n.c_str (), "w");
-
-  if (fp)
-    {
-      delete os;
-      os = new o_c_file_ptr_stream (fp);
-    }
 }
 
 octave_oprocstream::~octave_oprocstream (void)
@@ -90,16 +68,6 @@
   do_close ();
 }
 
-void
-octave_oprocstream::do_close (void)
-{
-  if (fp)
-    {
-      pclose (fp);
-      fp = 0;
-    }
-}
-
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***