diff -ruN klic-3.003-2002-01-25/compiler/klicdb.c klic-3.003-2002-02-06/compiler/klicdb.c
--- klic-3.003-2002-01-25/compiler/klicdb.c	Sat Dec 29 12:46:20 2001
+++ klic-3.003-2002-02-06/compiler/klicdb.c	Wed Feb  6 15:50:18 2002
@@ -539,9 +539,7 @@
 
   if (!nocfiles) {
     (void) fprintf(atomc, "};\n\n" \
-		"const unsigned long initial_atoms = %d;\n" \
-		"unsigned char** atomname =" \
-		" (unsigned char**) init_atomname;\n",
+		"const unsigned long initial_atoms = %d;\n",
 		nextatom );
     (void) fclose(atomh);
     (void) fclose(atomc);
diff -ruN klic-3.003-2002-01-25/include/klic/atomstuffs.h klic-3.003-2002-02-06/include/klic/atomstuffs.h
--- klic-3.003-2002-01-25/include/klic/atomstuffs.h	Sat Dec 29 12:46:20 2001
+++ klic-3.003-2002-02-06/include/klic/atomstuffs.h	Wed Feb  6 15:50:54 2002
@@ -13,6 +13,7 @@
 /* atomnumber stuffs */
 
 /* atom.c */
+extern unsigned char* const init_atomname[];
 extern unsigned char** atomname;
 
 #define ATOMNUMBERBASE 2
diff -ruN klic-3.003-2002-01-25/runtime/newatom.c klic-3.003-2002-02-06/runtime/newatom.c
--- klic-3.003-2002-01-25/runtime/newatom.c	Sun Jan  6 16:53:02 2002
+++ klic-3.003-2002-02-06/runtime/newatom.c	Wed Feb  6 15:50:18 2002
@@ -27,6 +27,8 @@
 extern unsigned long generic_string_size();
 extern unsigned char* convert_klic_string_to_c_string();
 
+unsigned char** atomname = (unsigned char**) init_atomname;
+
 struct atomhashtable{
   long atomid;
   unsigned long nametablesize;