Index: openacs-4/packages/acs-admin/www/apm/version-generate-diffs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-generate-diffs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/apm/version-generate-diffs.tcl	13 Jun 2015 23:55:32 -0000	1.4
+++ openacs-4/packages/acs-admin/www/apm/version-generate-diffs.tcl	7 Aug 2017 23:47:45 -0000	1.5
@@ -29,8 +29,6 @@
 
 set no_changes [list]
 
-global errorCode
-
 foreach file [apm_get_package_files -package_key $package_key] {
     if { ![file isfile "[acs_root_dir]/$file"] } {
 	doc_body_append "<h3>$file</h3>\n<blockquote>This file has been locally added.</blockquote>\n"
@@ -41,7 +39,10 @@
 	continue
     }
 
-    set cmd [list exec /usr/bin/diff]
+    if {[set diff [util::which diff]] eq ""} {
+        error "'diff' command not found on the system"
+    }
+    set cmd [list exec $diff]
     if { $context_p } {
 	lappend cmd "-c"
     }
@@ -50,7 +51,7 @@
     if { $errno == 0 } {
 	lappend no_changes $file
     } else {
-	set status [lindex $errorCode 2]
+	set status [lindex $::errorCode 2]
 	if { $status == 1 } {
 	    regsub {child process exited abnormally$} $diffs "" diffs
 	    doc_body_append "<h3>$file</h3>\n<blockquote><pre>[ns_quotehtml $diffs]</pre></blockquote>\n"
@@ -67,3 +68,9 @@
 
 doc_body_append [ad_footer]
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: