From a6708e246ad91491dc54f3e6c1ae5f44f80b9fba Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 22 Jun 2011 19:09:40 +0000
Subject: 	Fix ECL-based build failure. 	* interp/sys-driver.boot
 (loadExposureGroupData): Use 	getSystemModulePath to look up system modules.

---
 src/interp/sys-driver.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp')

diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot
index 13742c4e..a2f3f245 100644
--- a/src/interp/sys-driver.boot
+++ b/src/interp/sys-driver.boot
@@ -101,7 +101,7 @@ systemDatabaseDirectory() ==
 loadExposureGroupData() ==
   LOAD('"./exposed", KEYWORD::VERBOSE,false,
     KEYWORD::IF_-DOES_-NOT_-EXIST,nil) => "done"
-  LOAD(strconc(systemRootDirectory(),'"algebra/exposed"),
+  LOAD(getSystemModulePath '"exposed",
     KEYWORD::VERBOSE,false,KEYWORD::IF_-DOES_-NOT_-EXIST,nil) => "done"
   "failed"
 
-- 
cgit v1.2.3