--- r-cran-rpostgresql.orig/inst/devTests/PostgreSQLDataTypeTest.r
+++ r-cran-rpostgresql/inst/devTests/PostgreSQLDataTypeTest.r
@@ -1,4 +1,4 @@
-#!/usr/bin/env r
+#!/usr/bin/R
 
 ## Create a database
 tempdb <- "tempdbase"
--- r-cran-rpostgresql.orig/inst/devTests/datetime.r
+++ r-cran-rpostgresql/inst/devTests/datetime.r
@@ -1,4 +1,4 @@
-#!/usr/bin/env r
+#!/usr/bin/R
 
 ## assign a basic time type
 now <- Sys.time()
--- r-cran-rpostgresql.orig/inst/devTests/timeTypeComparison.r
+++ r-cran-rpostgresql/inst/devTests/timeTypeComparison.r
@@ -1,4 +1,4 @@
-#!/usr/bin/r
+#!/usr/bin/R
 
 suppressMessages({
     library(RODBC)
--- r-cran-rpostgresql.orig/inst/devTests/transactionManagement.r
+++ r-cran-rpostgresql/inst/devTests/transactionManagement.r
@@ -1,4 +1,4 @@
-#!/usr/bin/env r
+#!/usr/bin/R
 
 cat("Testing the working of Transaction Management\n")
 
--- r-cran-rpostgresql.orig/inst/devTests/typeTest.r
+++ r-cran-rpostgresql/inst/devTests/typeTest.r
@@ -1,4 +1,4 @@
-#!/usr/bin/env r
+#!/usr/bin/R
 
 usePG <- TRUE
 
