From 1a4df0fa706a24aabbfa6978486a742bc686b5a4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 23 Nov 2006 01:49:29 +0000
Subject: [PATCH] fix append_path hack to specify the right type; should fix
 this by using MzScheme exports, eventually

svn: r4924
---
 src/mred/wxs/wxscheme.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }