--- a/WorkspaceApplication.st	Fri Sep 01 22:32:10 2023 +0100
+++ b/WorkspaceApplication.st	Wed Sep 27 10:19:21 2023 +0100
@@ -2,7 +2,7 @@
  COPYRIGHT (c) 2001 by eXept Software AG
  COPYRIGHT (c) 2017 Jan Vrany
  COPYRIGHT (c) 2020 LabWare
- COPYRIGHT (c) 2022 LabWare
+ COPYRIGHT (c) 2022-2023 LabWare
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -38,7 +38,7 @@
  COPYRIGHT (c) 2001 by eXept Software AG
  COPYRIGHT (c) 2017 Jan Vrany
  COPYRIGHT (c) 2020 LabWare
- COPYRIGHT (c) 2022 LabWare
+ COPYRIGHT (c) 2022-2023 LabWare
               All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -3613,14 +3613,14 @@
 addSharedPool
     |allPools poolToAdd|
 
-    allPools := SharedPool allSubclasses collect:[:p | p name].
+    allPools := SharedPool allSubclasses.
     allPools removeAll:(poolsConsideredInDoIts ? #()).
-    allPools sort.
+    allPools sort:[ :a :b | a name < b name ].
 
     poolToAdd := Dialog 
-                choose:'Select a SharedPool to Add (To be known in doIt-Evaluations):'
-                fromList:allPools
-                lines:15.
+                    requestClassName:(resources string: 'Select a SharedPool to Add (To be known in doIt-Evaluations):') 
+                    list: allPools okLabel: (resources string: 'OK') initialAnswer:nil.
+
     poolToAdd isNil ifTrue:[
         ^ self
     ].
@@ -3637,6 +3637,8 @@
     ].
 
     "Modified: / 24-11-2006 / 12:44:16 / cg"
+    "Modified: / 26-09-2023 / 22:56:51 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified (format): / 27-09-2023 / 10:17:07 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 addSharedPoolInspector