Fix typo in previous change.

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index a743345355de12b4763dec702334d1f3252a361e..5c7d104605d772b945d307f29704c354f9cb9138 100644 (file)
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: vc.scm,v 1.91 2006/05/31 01:18:36 cph Exp $
+$Id: vc.scm,v 1.92 2006/05/31 01:19:39 cph Exp $
 
 Copyright 1994,1995,1996,1997,1998,2000 Massachusetts Institute of Technology
 Copyright 2001,2002,2003,2005,2006 Massachusetts Institute of Technology
@@ -2213,7 +2213,7 @@ the value of vc-log-mode-hook."
           (let ((port (open-output-string)))
             (let ((status
                    (run-synchronous-subprocess
-                    path
+                    program
                     (list "status" "--verbose" (file-namestring workfile))
                     'output port
                     'working-directory directory)))