diff --git a/uppdev/ConvertDic/ConvertDic.cpp b/uppdev/ConvertDic/ConvertDic.cpp
new file mode 100644
index 000000000..24f29ae6c
--- /dev/null
+++ b/uppdev/ConvertDic/ConvertDic.cpp
@@ -0,0 +1,144 @@
+#include <Core/Core.h>
+
+using namespace Upp;
+
+struct Sfx : Moveable <Sfx> {
+	struct Letter : public Bits {
+		bool           neg;
+
+		Letter() { neg = false; }
+	};
+	Vector<Letter> cond;
+	int            len;
+	String         text;
+};
+
+struct Sfxl : Moveable <Sfxl> {
+	bool cross;
+	Vector <Sfx> sfx;
+	Sfxl() { cross = true; }
+};
+
+template struct Moveable<Sfx::Letter>;
+
+VectorMap< int, Sfxl > suffix;
+VectorMap< int, Vector<String> > prefix;
+
+bool Match(const String& w, const Sfx& f)
+{
+	if(w.GetLength() < f.cond.GetCount())
+		return false;
+	const char *s = w.End() - f.cond.GetCount();
+	for(int i = 0; i < f.cond.GetCount(); i++) {
+		const Sfx::Letter& l = f.cond[i];
+		if(l.Get((byte)s[i]) == l.neg) return false;
+	}
+	return true;
+}
+
+CONSOLE_APP_MAIN
+{
+	if(CommandLine().GetCount() != 1) {
+		Cout() << "Usage: ConvertDic <file preffix>\n";
+		exit(1);
+	}
+	String d = CommandLine()[0];
+	SetDefaultCharset(CHARSET_ISO8859_2);
+	byte outcharset = CHARSET_UTF8;       // CHANGED !!!
+
+	FileIn in(d + ".aff");
+	in.GetLine();
+	in.GetLine();
+	prefix.Add(0).Add();
+	while(!in.IsEof()) {
+		String ln = in.GetLine();
+		int q = ln.Find('#');
+		if(q >= 0)
+			ln.Trim(q);
+		Vector<String> p = Split(ln, ' ');
+		if(p.GetCount()) {
+			if(p[0] == "PFX" && p.GetCount() == 5)
+				prefix.GetAdd(p[1][0]).Add(p[3]);
+			if(p[0] == "SFX") {
+				if(p.GetCount() == 5) {
+					Sfx& f = suffix.GetAdd(p[1][0]).sfx.Add();
+					if(p[2][0] == '0')
+						f.len = 0;
+					else
+						f.len = p[2].GetLength();
+					f.text = p[3];
+					if(f.text == "0")
+						f.text.Clear();
+					const char *s = p[4];
+					if(*s != '.') {
+						while(*s) {
+							if(*s == '[') {
+								Sfx::Letter& l = f.cond.Add();
+								s++;
+								if(*s == '^') {
+									l.neg = true;
+									s++;
+								}
+								while(*s && *s != ']')
+									l.Set((byte)*s++);
+								s++;
+							}
+							else
+								f.cond.Add().Set((byte)*s++);
+						}
+					}
+				}
+				if(p.GetCount() == 4 && isdigit(p[3][0]) && p[2][0] == 'N')
+					suffix.GetAdd(p[1][0]).cross = false;
+			}
+		}
+	}
+
+	FileOut out(d + ".txt");
+	in.Open(d + ".dic");
+	in.GetLine();
+	while(!in.IsEof()) {
+		String w = in.GetLine();
+		LOG(w);
+		String aff;
+		int q = w.Find('/');
+		if(q >= 0) {
+			aff = w.Mid(q + 1);
+			w.Trim(q);
+		}
+		Vector<int> pi;
+		Vector<int> si;
+		for(const char *s = aff; *s; s++) {
+			int q = suffix.Find(*s);
+			if(q >= 0)
+				si.Add(q);
+			q = prefix.Find(*s);
+			if(q >= 0)
+				pi.Add(q);
+		}
+		pi.Add(0);
+
+		for(int i = 0; i < pi.GetCount(); i++) {
+			Vector<String>& p = prefix[pi[i]];
+			for(int i = 0; i < p.GetCount(); i++) {
+				String pfx = p[i];
+				LOG("\tPrefix: " << pfx);
+				out.PutLine(ToCharset(outcharset, pfx + w));
+				LOG("> " << pfx + w);
+				for(int i = 0; i < si.GetCount(); i++) {
+					Sfxl& u = suffix[si[i]];
+					if(u.cross || pfx.IsEmpty())
+						for(int i = 0; i < u.sfx.GetCount(); i++) {
+							const Sfx& f = u.sfx[i];
+							if(Match(w, f) && w.GetLength() > f.len) {
+								LOG("\tSuffix: " << f.text);
+								String o = pfx + w.Mid(0, w.GetLength() - f.len) + f.text;
+								LOG("> " << o);
+								out.PutLine(ToCharset(outcharset, o));
+							}
+						}
+				}
+			}
+		}
+	}
+}
diff --git a/uppdev/ConvertDic/ConvertDic.upp b/uppdev/ConvertDic/ConvertDic.upp
new file mode 100644
index 000000000..ed07413ee
--- /dev/null
+++ b/uppdev/ConvertDic/ConvertDic.upp
@@ -0,0 +1,9 @@
+uses
+	Core;
+
+file
+	ConvertDic.cpp;
+
+mainconfig
+	"" = "";
+
diff --git a/uppdev/MakeSpellScd/MakeSpellScd.cpp b/uppdev/MakeSpellScd/MakeSpellScd.cpp
new file mode 100644
index 000000000..45e305d6d
--- /dev/null
+++ b/uppdev/MakeSpellScd/MakeSpellScd.cpp
@@ -0,0 +1,126 @@
+#include <Core/Core.h>
+
+#define LLOG(x)           // LOG(x)
+#define LLOGHEXDUMP(a, b) // LOGHEXDUMP(a, b)
+#define CREATEINFO
+
+using namespace Upp;
+
+String Utf8ToUpperAscii(const String& x)
+{
+	return ToUpper(ToAscii(FromUtf8(x)).ToString());
+}
+
+bool ScdOrder(const String& a, const String& b)
+{
+	int q = SgnCompare(Utf8ToUpperAscii(a), Utf8ToUpperAscii(b));
+	if(q)
+		return q < 0;
+	return a < b;
+};
+
+struct Block : Moveable<Block> {
+	String first;
+	int    ctrl_len;
+	int    text_len;
+};
+
+void Make()
+{
+	FileIn in(CommandLine()[0]);
+	if(!in) {
+		Cout() << "Unable to open " << CommandLine()[0] << " for reading\n";
+		SetExitCode(1);
+		return;
+	}
+	FileOut out(CommandLine()[1]);
+	if(!out) {
+		Cout() << "Unable to open " << CommandLine()[1] << " for writing\n";
+		SetExitCode(1);
+		return;
+	}
+
+#ifdef CREATEINFO
+	FileOut info(ForceExt(CommandLine()[1], ".info.txt"));
+	if(!out) {
+		Cout() << "Unable to open info file for writing\n";
+		SetExitCode(1);
+		return;
+	}
+	info << "    First |      len |    lenz  |     text |    textz \r\n"
+	        "------------------------------------------------------\r\n";
+#endif
+
+	SetDefaultCharset(CHARSET_UTF8);
+
+	Vector<String> w;
+	while(!in.IsEof())
+		w.Add(in.GetLine());
+	
+	Cout() << w.GetCount() << " words loaded, now sorting...\n";
+	
+	ASSERT(maxlen < 64);
+	
+	LLOG("Maximal length:" << maxlen << "  " << maxl);
+
+	Sort(w, ScdOrder);
+	
+	Cout() << "Sorted, now compressing..\n";
+
+	Vector<Block> block;
+	String data;
+	int i = 0;
+
+	while(i < w.GetCount()) {
+		Block& t = block.Add();
+		t.first = Utf8ToUpperAscii(w[i]);
+		String ctrl;
+		String text;
+		String pw;
+		while(i < w.GetCount() && text.GetCount() < 65000) {
+			String cw = w[i];
+			int j = 0;
+			while(j < pw.GetCount() && j < cw.GetCount() && j < 31 && pw[j] == cw[j])
+				j++;
+			ctrl.Cat(j);
+			text.Cat(cw.Mid(j));
+			text.Cat(0);
+			pw = cw;
+			i++;
+		}
+		String ztext = ZCompress(text);
+		String zctrl = ZCompress(ctrl);
+#ifdef CREATEINFO
+		info << Format("%-9.9s |%9d |%9d |%9d |%9d\r\n", t.first,
+		               ctrl.GetCount(), zctrl.GetCount(), text.GetCount(), ztext.GetCount());
+#endif
+		t.ctrl_len = zctrl.GetCount();
+		t.text_len = ztext.GetCount();
+		data.Cat(zctrl);
+		data.Cat(ztext);
+	}
+
+	Cout() << "Compressed, writing file directory..\n";
+	out.Put(255);
+	out.PutL(block.GetCount());
+	for(int i = 0; i < block.GetCount(); i++) {
+		Block& t = block[i];
+		out.Put(t.first.GetCount());
+		out.Put(t.first);
+		out.PutL(t.ctrl_len);
+		out.PutL(t.text_len);
+	}
+
+	Cout() << "Writing data..\n";
+	out.Put(data);
+}
+
+CONSOLE_APP_MAIN
+{
+	if(CommandLine().GetCount() != 2) {
+		Cout() << "Usage: MakeSpellScd <inputfile> <outputfile>\n";
+		exit(1);
+	}
+	Make();
+	Cout() << "* Finished\n";
+}
diff --git a/uppdev/MakeSpellScd/MakeSpellScd.upp b/uppdev/MakeSpellScd/MakeSpellScd.upp
new file mode 100644
index 000000000..7003c0559
--- /dev/null
+++ b/uppdev/MakeSpellScd/MakeSpellScd.upp
@@ -0,0 +1,13 @@
+description "Utility for creation of RichEdit spelling dictionary files (.scd)\377";
+
+optimize_speed;
+
+uses
+	Core;
+
+file
+	MakeSpellScd.cpp;
+
+mainconfig
+	"" = "";
+
diff --git a/uppdev/MakeSpellScd/init b/uppdev/MakeSpellScd/init
new file mode 100644
index 000000000..fd8113dac
--- /dev/null
+++ b/uppdev/MakeSpellScd/init
@@ -0,0 +1,4 @@
+#ifndef _MakeSpellScd_icpp_init_stub
+#define _MakeSpellScd_icpp_init_stub
+#include "Core/init"
+#endif
diff --git a/uppdev/Speller/Speller.cpp b/uppdev/Speller/Speller.cpp
new file mode 100644
index 000000000..b5289a30c
--- /dev/null
+++ b/uppdev/Speller/Speller.cpp
@@ -0,0 +1,179 @@
+#include <Core/Core.h>
+
+#define LLOG(x)    // LOG(x)
+#define LTIMING(x) RTIMING(x)
+
+using namespace Upp;
+
+struct SpellFile : Moveable<SpellFile> {
+};
+
+String spell_path;
+
+static StaticMutex spellmutex;
+
+void SetSpellPath(const String& p)
+{
+	INTERLOCKED_(spellmutex) {
+		spell_path = p;
+	}
+}
+
+static String sZet(FileIn& in, int offset, int len)
+{
+	in.Seek(offset);
+	return ZDecompress(in.Get(len));	
+}
+
+bool SpellWordRaw(int lang, const WString& wrd)
+{
+	LTIMING("SpellWordRaw");
+	LLOG("SpellWordRaw " << wrd << ' ' << LNGAsText(lang));
+	static VectorMap<int, SpellFile> spellfile;
+	int q = spellfile.Find(lang);
+	if(q < 0) {
+		String pp;
+		String dir = ConfigFile("scd");
+		for(;;) {
+			pp << dir << ';';
+			String d = GetFileFolder(dir);
+			if(d == dir) break;
+			dir = d;
+		}
+		pp << spell_path << ';' << getenv("LIB") << ';' << getenv("PATH") << ';';
+		String path = GetFileOnPath(LNGAsText(lang) + ".scd", pp);
+		if(IsNull(path))
+			return true;
+		FileIn in(path);
+		if(!in || in.Get() != 255)
+			return true;
+		q = spellfile.GetCount();
+		SpellFile& f = spellfile.Add(lang);
+		f.path = path;
+		int n = in.GetL();
+		LLOG("Found scd file " << path << " blocks " << n);
+		if(n > 0 && n < 100000) {
+			for(int i = 0; i < n; i++) {
+				SpellBlock& b = f.block.Add();
+				b.first = in.Get(in.Get());
+				b.ctrl_len = in.GetL();
+				b.text_len = in.GetL();
+			}
+			if(in.IsEof())
+				f.block.Clear();
+			else {
+				int off = (int)in.GetPos();
+				for(int i = 0; i < n; i++) {
+					SpellBlock& b = f.block[i];
+					b.offset = off;
+					off += b.ctrl_len + b.text_len;
+				}
+			}
+		}
+	}
+	const SpellFile& f = spellfile[q];
+	String awrd = ToUpper(ToAscii(wrd).ToString());
+	String t1 = ToUtf8(wrd);
+	String t2 = ToUtf8(ToLower(wrd));
+//	DDUMP(awrd);
+	for(int i = 0;; i++) {
+//		if(i + 1 < f.block.GetCount())
+//			DDUMP(f.block[i + 1].first);
+		if(i + 1 >= f.block.GetCount() || awrd <= f.block[i + 1].first) {
+			for(;;) {
+				if(i >= f.block.GetCount())
+					return false;
+				LLOG("Spell block " << i << ": " << f.block[i].first);
+				const SpellBlock& b = f.block[i++];
+				if(b.first > awrd) {
+					LLOG("  --- false");
+					return false;
+				}
+				FileIn in(f.path);
+				String ctrl = sZet(in, b.offset, b.ctrl_len);
+				String text = sZet(in, b.offset + b.ctrl_len, b.text_len);
+				in.Close();
+//				LTIMING("Search");
+				String w;
+				const char *s = ctrl;
+				const char *e = ctrl.End();
+				const char *t = text;
+				const char *te = text.End();
+				while(s < e && t < te) {
+					w.Trim(*s++);
+					while(*t)
+						w.Cat(*t++);
+//					DDUMP(w);
+					if(w == t1 || w == t2)
+						return true;
+					t++;
+				}
+			}
+		}
+	}
+	return false;
+}
+
+struct SpellKey : Moveable<SpellKey> {
+	int     lang;
+	WString wrd;
+	
+	unsigned GetHashValue() const { return CombineHash(lang, wrd); }
+	bool operator==(const SpellKey& b) const { return lang == b.lang && wrd == b.wrd; }
+};
+
+struct SpellMaker : LRUCache<bool, SpellKey>::Maker {
+	SpellKey k;
+	
+	SpellKey Key() const  { return k; }
+	int    Make(bool& r) const {
+		r = SpellWordRaw(k.lang, k.wrd);
+		return 1;
+	}
+};
+
+bool SpellWord(int lang, const WString& wrd)
+{
+	INTERLOCKED_(spellmutex) {
+		static LRUCache<bool, SpellKey> cache;
+		cache.Shrink(2000);
+		SpellMaker m;
+		m.k.lang = lang;
+		m.k.wrd = wrd;
+		return cache.Get(m);
+	}
+}
+
+bool SpellWord(int lang, const String& wrd)
+{
+	return SpellWord(lang, wrd.ToWString());
+}
+
+bool Spell(const char *s)
+{
+	RDUMP(s);
+	return SpellWord(LNG_('C','S','C','Z'), String(s));
+}
+
+CONSOLE_APP_MAIN
+{
+	SetSpellPath("D:\\");
+	FileIn in("D:\\src.txt");
+	int n = 0;
+	while(!in.IsEof()) {
+		String s = in.GetLine();
+		if(n++ % 10000 == 0)
+			Cout() << n << ' ' << s << "\n";
+		if(!Spell(s)) {
+			RLOG("Error: " << s);
+			Cout() << "Error: " << s << '\n';
+			break;
+		}
+		s << "asdf";
+		if(Spell(s)) {
+			RLOG("Error: " << s);
+			Cout() << "Error: " << s << '\n';
+			break;
+		}
+	}
+}
diff --git a/uppdev/Speller/Speller.upp b/uppdev/Speller/Speller.upp
new file mode 100644
index 000000000..a2b828185
--- /dev/null
+++ b/uppdev/Speller/Speller.upp
@@ -0,0 +1,11 @@
+charset "UTF-8";
+
+uses
+	Core;
+
+file
+	Speller.cpp;
+
+mainconfig
+	"" = "";
+
diff --git a/uppdev/Speller/init b/uppdev/Speller/init
new file mode 100644
index 000000000..4c5c0dba0
--- /dev/null
+++ b/uppdev/Speller/init
@@ -0,0 +1,4 @@
+#ifndef _Speller_icpp_init_stub
+#define _Speller_icpp_init_stub
+#include "Core/init"
+#endif