--- a/print-ar.sh
+++ b/print-ar.sh
@@ -1,7 +1,7 @@
 cat warn-auto.sh
 echo 'main="$1"; shift'
 echo 'rm -f "$main"'
-echo 'ar cr "$main" ${1+"$@"}'
+echo '${AR} cr "$main" ${1+"$@"}'
 case "`cat systype`" in
   sunos-5.*) ;;
   unix_sv*) ;;
@@ -10,5 +10,5 @@
   dgux-*) ;;
   hp-ux-*) ;;
   sco*) ;;
-  *) echo 'ranlib "$main"' ;;
+  *) echo '${RANLIB} "$main"' ;;
 esac