666a667,680
> #ifdef _MSC_VER
> 		cl_object drive;
> 		cl_index len;
> 		cl_object target;
> 
> 		drive = pathname->pathname.device;
> 		len = drive->base_string.fillp;
> 		target = cl_alloc_simple_base_string(len + 2);
> 		memcpy(target->base_string.self, drive->base_string.self, len);
> 		memcpy(target->base_string.self + len, ":/", 2);
> 
> 		if (chdir(target->base_string.self) < 0)
> 			return Cnil;
> #else
668a683
> #endif

