From ca329f457c53296fffa1dfed094cfce56da85d3a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 31 May 2006 01:19:39 +0000
Subject: [PATCH] Fix typo in previous change.

---
 v7/src/edwin/vc.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index a74334535..5c7d10460 100644
--- 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)))
-- 
2.25.1