From 7db8921aac3a0e1223af269ec7092bdd91a7c7a2 Mon Sep 17 00:00:00 2001
From: "Jeffrey H. Kingston" <jeff@it.usyd.edu.au>
Date: Tue, 14 Sep 2010 20:37:27 +0000
Subject: Lout 3.24.

git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@17 9365b830-b601-4143-9ba8-b4a8e2c3339c
---
 z33.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'z33.c')

diff --git a/z33.c b/z33.c
index ac6185b..52b7937 100644
--- a/z33.c
+++ b/z33.c
@@ -441,8 +441,12 @@ OBJECT DbLoad(OBJECT stem, int fpath, BOOLEAN create, OBJECT symbs,
   if( fp == null && create )
   { db = nilobj;
     debug0(DFS, D, "  calling DefineFile from DbLoad (2)");
+    /* *** bug fix JeffK 12/9/00; need same path as index file
     dfnum = DefineFile(string(stem), DATA_SUFFIX, &fpos(stem),
       DATABASE_FILE, DATABASE_PATH);
+    *** */
+    dfnum = DefineFile(string(stem), DATA_SUFFIX, &fpos(stem),
+      DATABASE_FILE, fpath);
     dfpos = 0L;  LexPush(dfnum, 0, DATABASE_FILE, 1, FALSE);
     t = LexGetToken();
     dlnum = line_num(fpos(t));
-- 
cgit