diff --git a/examples/M-modules/quick/Tic-Tac-Toe/properties.lisp b/examples/M-modules/quick/Tic-Tac-Toe/properties.lisp
index b5eeaa3..dadfaa5 100644
--- a/examples/M-modules/quick/Tic-Tac-Toe/properties.lisp
+++ b/examples/M-modules/quick/Tic-Tac-Toe/properties.lisp
@@ -4,8 +4,11 @@
   (find-symbol (symbol-name name) package))
 
 (defun show-properties-dialog (&optional item)
+  "Lists all instance properties of a QML item (either a QQuickItem or an 'objectName'). If no item is passed, QML:*CALLER* will be used."
   (unless (find-package :properties)
     (load (in-home "gui/properties")))
+  (when (stringp item)
+    (setf item (qml:find-quick-item item)))
   (funcall (sym :show :properties)
            (or item qml:*caller*)
            t)) ; all instance properties (for QML)
diff --git a/examples/M-modules/quick/item-model/properties.lisp b/examples/M-modules/quick/item-model/properties.lisp
index b5eeaa3..dadfaa5 100644
--- a/examples/M-modules/quick/item-model/properties.lisp
+++ b/examples/M-modules/quick/item-model/properties.lisp
@@ -4,8 +4,11 @@
   (find-symbol (symbol-name name) package))
 
 (defun show-properties-dialog (&optional item)
+  "Lists all instance properties of a QML item (either a QQuickItem or an 'objectName'). If no item is passed, QML:*CALLER* will be used."
   (unless (find-package :properties)
     (load (in-home "gui/properties")))
+  (when (stringp item)
+    (setf item (qml:find-quick-item item)))
   (funcall (sym :show :properties)
            (or item qml:*caller*)
            t)) ; all instance properties (for QML)
diff --git a/examples/M-modules/quick/painted-item/properties.lisp b/examples/M-modules/quick/painted-item/properties.lisp
index b5eeaa3..dadfaa5 100644
--- a/examples/M-modules/quick/painted-item/properties.lisp
+++ b/examples/M-modules/quick/painted-item/properties.lisp
@@ -4,8 +4,11 @@
   (find-symbol (symbol-name name) package))
 
 (defun show-properties-dialog (&optional item)
+  "Lists all instance properties of a QML item (either a QQuickItem or an 'objectName'). If no item is passed, QML:*CALLER* will be used."
   (unless (find-package :properties)
     (load (in-home "gui/properties")))
+  (when (stringp item)
+    (setf item (qml:find-quick-item item)))
   (funcall (sym :show :properties)
            (or item qml:*caller*)
            t)) ; all instance properties (for QML)
diff --git a/examples/M-modules/quick/qml-lisp/properties.lisp b/examples/M-modules/quick/qml-lisp/properties.lisp
index b5eeaa3..dadfaa5 100644
--- a/examples/M-modules/quick/qml-lisp/properties.lisp
+++ b/examples/M-modules/quick/qml-lisp/properties.lisp
@@ -4,8 +4,11 @@
   (find-symbol (symbol-name name) package))
 
 (defun show-properties-dialog (&optional item)
+  "Lists all instance properties of a QML item (either a QQuickItem or an 'objectName'). If no item is passed, QML:*CALLER* will be used."
   (unless (find-package :properties)
     (load (in-home "gui/properties")))
+  (when (stringp item)
+    (setf item (qml:find-quick-item item)))
   (funcall (sym :show :properties)
            (or item qml:*caller*)
            t)) ; all instance properties (for QML)