From 2b936a546b98643e6ff8d73cbca2fba68f59d958 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Thu, 11 Feb 2021 20:54:58 -0500
Subject: [PATCH] fix regression on eval

---
 demos/03-demo.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/demos/03-demo.lisp b/demos/03-demo.lisp
index 00bdc38..79452c0 100644
--- a/demos/03-demo.lisp
+++ b/demos/03-demo.lisp
@@ -1,4 +1,5 @@
 ;;; As this demo uses eval do not run over the internet.
+;;; This app gives access to its users your local files.
 
 (defpackage #:clog-user
   (:use #:cl #:clog)
@@ -139,6 +140,7 @@
 	     (result      (capture-eval form-string)))
 	
 	(do-ide-file-new obj)
+	(setf cw (current-window obj))
 	(js-execute obj (format nil "editor_~A.setValue('~A');editor_~A.moveCursorTo(0,0);"
 				(html-id cw)
 				(escape-string result)