diff --git a/reference/SqlExp/SqlExp.cpp b/reference/SqlExp/SqlExp.cpp
index a4e2e27b5..f6f476512 100644
--- a/reference/SqlExp/SqlExp.cpp
+++ b/reference/SqlExp/SqlExp.cpp
@@ -1,4 +1,4 @@
-#include <RichText/RichText.h>
+#include <CtrlLib/CtrlLib.h>
 #include <Sql/Sql.h>
 
 using namespace Upp;
@@ -133,6 +133,13 @@ GUI_APP_MAIN
 	EXP(Insert(TABLE)(COLUMN1, 12)(COLUMN2)(COLUMN).From(TABLE1).Where(COLUMN >= 0));
 
 	EXP(Update(TABLE)(COLUMN1, 13)(COLUMN2, "world").Where(COLUMN > Date(2007, 1, 1)));
+	
+	EXP(Insert(TABLE)(COLUMN, Select(COLUMN1).From(TABLE1).Where(COLUMN2 == 21).AsValue()));
+
+	EXP(Select(COLUMN).From(Select(COLUMN).From(TABLE1)));
+	EXP(Select(COLUMN).From(Select(COLUMN).From(TABLE1).AsTable(TABLE2)));
+	EXP(Select(COLUMN).From(TABLE).LeftJoin(Select(COLUMN).From(TABLE1)).On(COLUMN.Of(TABLE) == COLUMN1.Of(TABLE1)));
+	EXP(Select(COLUMN).From(TABLE).LeftJoin(Select(COLUMN).From(TABLE1).AsTable(TABLE2)).On(COLUMN.Of(TABLE) == COLUMN1.Of(TABLE1)));
 
 #ifdef GENERATE_QTF
 	qtf << "}}";
diff --git a/reference/SqlExp/SqlExp.upp b/reference/SqlExp/SqlExp.upp
index c88e36cac..61daf7bb6 100644
--- a/reference/SqlExp/SqlExp.upp
+++ b/reference/SqlExp/SqlExp.upp
@@ -1,9 +1,10 @@
-description "Examples of SqlExp expressions";
+description "Examples of SqlExp expressions\377";
 
 uses
 	Core,
 	Sql,
-	RichText;
+	RichText,
+	CtrlLib;
 
 file
 	SqlExp.cpp;
diff --git a/reference/SqlExp/init b/reference/SqlExp/init
index 344ab5062..431f09df1 100644
--- a/reference/SqlExp/init
+++ b/reference/SqlExp/init
@@ -3,4 +3,5 @@
 #include "Core/init"
 #include "Sql/init"
 #include "RichText/init"
+#include "CtrlLib/init"
 #endif