1 files changed, 15 insertions, 13 deletions
diff --git a/tex/context/base/core-dat.tex b/tex/context/base/core-dat.tex
index c2d13f864..2389aa616 100644
--- a/tex/context/base/core-dat.tex
+++ b/tex/context/base/core-dat.tex
@@ -11,6 +11,8 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for
 %C details.
 
+% THIS WILL DISAPPEAR, I.E. BE MOVED TO A MODULE 
+
 \writestatus{loading}{Context Database Support}
 
 \startmessages  dutch  library: databases
@@ -176,7 +178,7 @@
 
 %\newevery \everyrecord \EveryRecord
 
-\def\definerecord%
+\def\definerecord
   {\dodoubleempty\dodefinerecord}
 
 \def\dodefinerecord[#1][#2]%
@@ -186,7 +188,7 @@
       \c!commando=\gobbleoneargument,
       #2]}
 
-\def\setuprecord%
+\def\setuprecord
   {\dodoubleargument\dosetuprecord}
 
 \def\dosetuprecord[#1][#2]%
@@ -200,18 +202,18 @@
 %D Watch out: the entries are defined global! While
 %D processing a record, no grouping is applied. 
 
-\def\getrecordentry   #1{\getvalue{\??db:#1}}
+\def\getrecordentry   #1{\getvalue      {\??db:#1}}
 \def\resetrecordentry #1{\letgvalueempty{\??db:#1}}
-\def\assignrecordentry#1{\setgvalue{\??db:#1}}
+\def\assignrecordentry#1{\setgvalue     {\??db:#1}}
 
-\long\def\skiprecord#1\stoprecord%
+\long\def\skiprecord#1\stoprecord
   {\egroup}
 
 \newif\ifrecordok
 
 \newtoks\resetrecordlist 
 
-\def\processrecords%
+\def\processrecords
   {\dotripleargument\doprocessrecords}
 
 \def\doprocessrecords[#1][#2][#3]%
@@ -223,11 +225,11 @@
    \processcommacommand[\getvalue{\??db#1\c!velden}]\docommando
    \let\setrecordentry\skiprecord
    \the\resetrecordlist
-   \doifelse{#2}{\v!alles} % 't Is nu eenmaal alles 
-     {\recordoktrue}
+   \doifelse{#2}\v!alles   % 't Is nu eenmaal alles 
+     \recordoktrue
      {\doifelsenothing{#2} % of niets 
-        {\recordoktrue}
-        {\recordokfalse}}% % zullen we maar zeggen. 
+        \recordoktrue
+        \recordokfalse}%   % zullen we maar zeggen. 
    \ifrecordok
      \let\askedrecords\v!alles
    \else
@@ -266,10 +268,10 @@
    \showmessage\m!databases1\askedrecords
    \def\doprocessrecords##1%
      {\readjobfile{##1}
-        {\showmessage{\m!databases}{2}{(job)}}
+        {\showmessage\m!databases2{(job)}}
         {\readsysfile{##1}
-           {\showmessage{\m!databases}{3}{(sys)}}
-           {\showmessage{\m!databases}{4}{}}}}%
+           {\showmessage\m!databases3{(sys)}}
+           {\showmessage\m!databases4{}}}}%
    \processcommalist[#3]\doprocessrecords
    \egroup}