--- a/liboctave/oct-syscalls.cc	Thu Feb 05 20:59:48 1998 +0000
+++ b/liboctave/oct-syscalls.cc	Fri Feb 06 06:00:10 1998 +0000
@@ -148,6 +148,27 @@
 }
 
 pid_t
+octave_syscalls::vfork (string& msg)
+{
+  pid_t status = -1;
+
+#if defined (HAVE_VFORK) || defined (HAVE_FORK)
+#if defined (HAVE_VFORK)
+  status = ::vfork ();
+#else
+  status = ::vfork ();
+#endif
+
+  if (status < 0)
+    msg = ::strerror (errno);
+#else
+  msg = NOT_SUPPORTED ("vfork");
+#endif
+
+  return status;
+}
+
+pid_t
 octave_syscalls::getpgrp (string& msg)
 {
   pid_t status = -1;