diff --git a/source/clog-helpers.lisp b/source/clog-helpers.lisp
index a36378f..4e08453 100644
--- a/source/clog-helpers.lisp
+++ b/source/clog-helpers.lisp
@@ -19,11 +19,12 @@
:add-file-extension
:clog-builder-probe
:clog-builder-scope
- :clog-db-admin))
+ :clog-db-admin
+ :*scope*))
(defpackage #:clog-user
(:use #:cl #:clog #:clog-gui #:clog-web)
- (:import-from :clog-tools #:clog-builder-probe #:clog-builder-scope)
+ (:import-from :clog-tools :*scope* #:clog-builder-probe #:clog-builder-scope)
(:export :*body* :clog-repl))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/tools/clog-builder-scope.lisp b/tools/clog-builder-scope.lisp
index f0522b8..da6446e 100644
--- a/tools/clog-builder-scope.lisp
+++ b/tools/clog-builder-scope.lisp
@@ -346,8 +346,11 @@ name. If CLOG-BODY not set use *clog-debug-instance*"
(on-change (object &key is-list)
(setf (text tree) "")
(browser-gc obj)
+ (if is-list
+ (setf *scope* (first object))
+ (setf *scope* object))
(create-div tree :class "w3-tiny w3-center"
- :content "left-click - drill down / right-click - system browse
")
+ :content "left-click - drill down / right-click - system browse - clog-tools:*scope* current object
")
(if is-list
(add-list tree object)
(progn
diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp
index df79152..969a3e7 100644
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@@ -20,6 +20,8 @@ clog-builder window.")
(defparameter *start-dir* nil "Set the directory the dir win should start with")
(defparameter *client-side-movement* nil "Use javascript for window movement")
+(defvar *scope* nil "The last evaluated scope object")
+
;; Per instance app data
(defclass builder-app-data ()