diff --git a/reference/GuiLock/main.cpp b/reference/GuiLock/main.cpp
index 4dd2dd5e5..0cfc5e5c4 100644
--- a/reference/GuiLock/main.cpp
+++ b/reference/GuiLock/main.cpp
@@ -30,7 +30,8 @@ void App::Work()
 			break;
 		if(list.GetCount() > 100) {
 			bool quit;
-			Call(PTEBACK1(AskQuit, &quit));
+			Call(PTEBACK1(AskQuit, &quit)); // This is the generic way for any GUI (dlg)
+			// quit = PromptYesNo("Quit?"); // But Prompt has this ability already implemented
 			if(quit) {
 				Break();
 				return;
diff --git a/reference/PromptRedirect/PromptRedirect.upp b/reference/PromptRedirect/PromptRedirect.upp
new file mode 100644
index 000000000..475bd1e91
--- /dev/null
+++ b/reference/PromptRedirect/PromptRedirect.upp
@@ -0,0 +1,11 @@
+description "Prompt redirection\377";
+
+uses
+	CtrlLib;
+
+file
+	main.cpp;
+
+mainconfig
+	"" = "GUI SSE2";
+
diff --git a/reference/PromptRedirect/main.cpp b/reference/PromptRedirect/main.cpp
new file mode 100644
index 000000000..f98a6cb0f
--- /dev/null
+++ b/reference/PromptRedirect/main.cpp
@@ -0,0 +1,21 @@
+#include <CtrlLib/CtrlLib.h>
+
+using namespace Upp;
+
+int MyPrompt(Callback1<const String&> WhenLink,
+             const char *title, const Image& iconbmp, const char *qtf, bool okcancel,
+             const char *button1, const char *button2, const char *button3,
+             int cx, Image im1, Image im2, Image im3)
+{
+	LOG(title << ": " << qtf << "\n");
+	return IDCANCEL;
+}
+
+INITBLOCK {
+	RedirectPrompts(MyPrompt);
+}
+
+GUI_APP_MAIN
+{
+	PromptYesNo("Test");
+}