--- a/UIPainter.st	Tue Feb 25 12:06:00 2014 +0100
+++ b/UIPainter.st	Tue Feb 25 12:30:12 2014 +0100
@@ -4017,7 +4017,15 @@
     ifFalse:[self isHelpToolSelected   ifTrue:[tool := helpTool   ]
     ifFalse:[
         tool := specTool.
-        tool notNil ifTrue:[ specTool selection:tabSelection ].
+        tool notNil ifTrue:[ 
+            "/ the spectool needs to know, in which nameSpace the application class is located, to find out
+            "/ how to resolve short majorKeys...
+            UISpecification uiMajorKeyBindingNameSpaceQuery 
+                answer:(specClass notNil ifTrue:[specClass nameSpace] ifFalse:Smalltalk)
+                do:[
+                    specTool selection:tabSelection 
+                ].
+        ].
     ]].
 
     (Array with:helpTool with:layoutTool with:specTool) do:[:aTool|