From 30596c077fc29ba5dac735fb6aae11137160eca4 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Wed, 6 Sep 2006 15:20:30 +0000
Subject: [PATCH] Restore previous fix by M. Goffioul which I accidentally
 deleted (Juanjo)

---
 src/c/unixfsys.d | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/c/unixfsys.d b/src/c/unixfsys.d
index 72be3a127..6637c3bf3 100644
--- a/src/c/unixfsys.d
+++ b/src/c/unixfsys.d
@@ -72,6 +72,9 @@ static cl_object
 current_dir(void) {
 	cl_object output;
 	const char *ok;
+#ifdef _MSC_VER
+	char *c;
+#endif
 	cl_index size = 128;
 
 	do {
@@ -86,8 +89,15 @@ current_dir(void) {
 	  strcpy(other->base_string.self, output->base_string.self);
 	  output = other;
 	}
-	output->base_string.self[size++] = '/';
-	output->base_string.self[size] = 0;
+#ifdef _MSC_VER
+	for (c=output->base_string.self; *c; c++)
+		if (*c == '\\')
+			*c = '/';
+#endif
+	if (output->base_string.self[size-1] != '/') {
+		output->base_string.self[size++] = '/';
+		output->base_string.self[size] = 0;
+	}
 	output->base_string.fillp = size;
 	return output;
 }