Index: /trunk/source/lib/compile-ccl.lisp
===================================================================
--- /trunk/source/lib/compile-ccl.lisp	(revision 14029)
+++ /trunk/source/lib/compile-ccl.lisp	(revision 14030)
@@ -669,5 +669,5 @@
         (multiple-value-bind (status exit-code)
             (external-process-status
-             (run-program "svn" '("update" "--non-interactive") :output out :error t))
+             (run-program *svn-program* '("update" "--non-interactive") :output out :error t))
           (when verbose (format t "~&;'svn update' complete."))
           (if (not (and (eq status :exited)
@@ -686,5 +686,5 @@
               (flet ((svn-revert (string)
                        (multiple-value-bind (status exit-code)
-                           (external-process-status (run-program "svn" `("revert" ,string)))
+                           (external-process-status (run-program *svn-program* `("revert" ,string)))
                          (when (and (eq status :exited) (eql exit-code 0))
                            (setq conflicts (delete string conflicts :test #'string=))
@@ -751,5 +751,5 @@
       (when update
 	(cwd "ccl:tests;")
-	(run-program "svn" '("update")))
+	(run-program *svn-program* '("update")))
       (let* ((repo (svn-repository))
 	     (url (format nil "~a/trunk/tests" repo))
@@ -759,10 +759,10 @@
 		 (ccl-directory))
 	  (progn
-	    (format t "~&Checking out test suite from ~a into ccl:tests;~%"
-		    url)
+	    (format t "~&Using ~a to check out test suite from ~a ~
+                       into ccl:tests;~%" *svn-program* url)
 	    (cwd "ccl:")
 	    (multiple-value-bind (status exit-code)
 	      (external-process-status
-	       (run-program "svn" (list "checkout" url "tests")
+	       (run-program *svn-program* (list "checkout" url "tests")
 			    :output s :error s))
 	      (unless (and (eq status :exited)