diff --git a/src/backends/R/rserver/tools/envvars.r b/src/backends/R/rserver/tools/envvars.r
old mode 100644
new mode 100755
index 33585730..8b830c5a
--- a/src/backends/R/rserver/tools/envvars.r
+++ b/src/backends/R/rserver/tools/envvars.r
@@ -1,16 +1,17 @@
 #!/usr/bin/Rscript
 #
 # script taken from RInside library
 #
 # This owes a lot to littler.R  in the littler sources
 
 ExcludeVars <- c("R_SESSION_TMPDIR","R_HISTFILE")
 IncludeVars <- Sys.getenv()
 IncludeVars <- IncludeVars[grep("^R_",names(IncludeVars),perl=TRUE)]
 cat("    const char *R_VARS[] = {\n")
 for (i in 1:length(IncludeVars)){
 	if (names(IncludeVars)[i] %in% ExcludeVars)
 		next
+	IncludeVars[i] <- gsub("\\\\",'/',IncludeVars[i])
 	cat('        "',names(IncludeVars)[i],'","',IncludeVars[i],'",\n',sep='')
 }
-cat("        NULL\n    };\n")
+cat("        nullptr\n    };\n")