diff --git a/slang/ChangeLog b/slang/ChangeLog
index 009299840..d76303bf3 100644
--- a/slang/ChangeLog
+++ b/slang/ChangeLog
@@ -1,3 +1,10 @@
+2002-10-07  Andrew V. Samoilov  <sav@bcs.zp.ua>
+
+	* sldisply.c (Color_Def_Type): Make const.
+	* slsmg.c (Fake_Alt_Char_Pairs): Likewise.
+	* sltermin.c (Tgetstr_Map_Type): Likewise.
+	* slutty.c (Baud_Rate_Type): Likewise.
+
 2002-10-07  Pavel Roskin  <proski@gnu.org>
 
 	Update to S-Lang 1.4.5.  Move include files to "include"
diff --git a/slang/sldisply.c b/slang/sldisply.c
index 9afc942ab..cec0c8c5a 100644
--- a/slang/sldisply.c
+++ b/slang/sldisply.c
@@ -911,7 +911,7 @@ void SLtt_del_eol (void)
    del_eol ();
 }
 
-typedef struct
+typedef const struct
 {
    char *name;
    SLtt_Char_Type color;
diff --git a/slang/slsmg.c b/slang/slsmg.c
index 05f99ec9c..f1c580988 100644
--- a/slang/slsmg.c
+++ b/slang/slsmg.c
@@ -959,12 +959,13 @@ void SLsmg_touch_screen (void)
 
 			  
 #ifndef IBMPC_SYSTEM
-static char Fake_Alt_Char_Pairs [] = "a:j+k+l+m+q-t+u+v+w+x|n+`+f\\g#~o,<+>.v-^h#0#";
+static const char Fake_Alt_Char_Pairs [] = "a:j+k+l+m+q-t+u+v+w+x|n+`+f\\g#~o,<+>.v-^h#0#";
 
 static void init_alt_char_set (void)
 {
    int i;
-   unsigned char *p, *pmax, ch;
+   unsigned const char *p, *pmax;
+   unsigned char ch;
 
    if (Alt_Char_Set[128] == 128) return;
 
diff --git a/slang/sltermin.c b/slang/sltermin.c
index 3497eeb36..7ae525925 100644
--- a/slang/sltermin.c
+++ b/slang/sltermin.c
@@ -335,7 +335,7 @@ SLterminfo_Type *_SLtt_tigetent (char *term)
 # define UNTIC_COMMENT(x)
 #endif
 
-typedef struct
+typedef const struct
 {
    char name[3];
    int offset;
diff --git a/slang/slutty.c b/slang/slutty.c
index aebd21d96..0757ca5b1 100644
--- a/slang/slutty.c
+++ b/slang/slutty.c
@@ -91,7 +91,7 @@ typedef struct termios TTY_Termio_Type;
 static TTY_Termio_Type Old_TTY;
 
 #ifdef HAVE_TERMIOS_H
-typedef struct
+typedef const struct
 {
    unsigned int key;
    unsigned int value;