From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 31 May 2006 01:19:39 +0000 (+0000)
Subject: Fix typo in previous change.
X-Git-Tag: 20090517-FFI~1049
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ca329f457c53296fffa1dfed094cfce56da85d3a;p=mit-scheme.git

Fix typo in previous change.
---

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)))