diff --git a/src/mred/wxs/wxscheme.cxx b/src/mred/wxs/wxscheme.cxx
index ba9cfe3c6d..4f092ee46c 100644
--- a/src/mred/wxs/wxscheme.cxx
+++ b/src/mred/wxs/wxscheme.cxx
@@ -2370,7 +2370,7 @@ static Scheme_Object *append_path(Scheme_Object *a, Scheme_Object *b)
 {
   Scheme_Object *s;
   s = scheme_append_byte_string(a, b);
-  s->type = scheme_path_type;
+  s->type = SCHEME_PLATFORM_PATH_KIND;
   return s;
 }