--- a/extensions.st	Tue Feb 25 09:03:00 2014 +0100
+++ b/extensions.st	Tue Feb 25 11:39:31 2014 +0100
@@ -1474,15 +1474,10 @@
      class browser) to perform language-specific tasks (search for implementors,
      build implementor menu and so on. If nil is returned, no toolbox available"
 
-    | class |
-
-    class := self toolboxClass.   
-    ^ class notNil 
-        ifTrue:[ class new] 
-        ifFalse:[ nil ]
+    ^ self toolboxClass new.
 
     "Created: / 31-08-2013 / 10:15:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 31-08-2013 / 23:42:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-02-2014 / 16:32:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ProgrammingLanguage methodsFor:'accessing - classes'!
@@ -1492,9 +1487,10 @@
      class browser) to perform language-specific tasks (search for implementors,
      build implementor menu and so on. If nil is returned, no toolbox available"
 
-    ^ nil
+    ^ Tools::GenericToolbox
 
     "Created: / 31-08-2013 / 10:07:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-02-2014 / 16:32:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Rectangle methodsFor:'inspecting'!
@@ -2320,7 +2316,7 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.120 2014-02-23 11:35:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.121 2014-02-25 10:39:31 vrany Exp $'
 ! !
 
 !stx_libtool class methodsFor:'documentation'!