--- a/Tools__NewSystemBrowser.st	Fri Apr 25 11:57:55 2014 +0200
+++ b/Tools__NewSystemBrowser.st	Sun Apr 27 12:11:03 2014 +0200
@@ -18196,9 +18196,13 @@
 !
 
 environment:env
-    self environmentHolder value: env.
-
-    "Modified: / 24-02-2014 / 10:21:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    environmentHolder notNil ifTrue:[ 
+        environmentHolder value: env.
+    ] ifFalse:[ 
+        environment := env.
+    ].
+
+    "Modified: / 26-04-2014 / 23:54:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 isEmbeddedBrowser
@@ -19149,6 +19153,7 @@
 ! !
 
 
+
 !NewSystemBrowser methodsFor:'aspects-organization'!
 
 categoryMenuVisible
@@ -22865,6 +22870,7 @@
     ^ UserPreferences current useSearchBarInBrowser or:[self codeView searchBarActionBlock notNil]
 ! !
 
+
 !NewSystemBrowser methodsFor:'binding access'!
 
 menuFor:key
@@ -25153,6 +25159,7 @@
     "/ do not use self class new here - to avoid using obsolete classes instances
     "/ while working on the browser itself ...
     browser := (Smalltalk at:self class name) new.
+    browser environment: self environment.  
     browser allButOpen.
     browser setupNavigationStateFrom:navigationState.
     browser window extent:(self window extent).
@@ -25168,6 +25175,7 @@
     ^ browser.
 
     "Modified: / 08-08-2010 / 15:19:13 / cg"
+    "Modified: / 27-04-2014 / 11:07:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 browseMenuDeprecatedMethods
@@ -48260,6 +48268,7 @@
     "Modified: / 28-02-2012 / 16:48:38 / cg"
 ! !
 
+
 !NewSystemBrowser methodsFor:'menu actions-variables'!
 
 browseVarRefsOrModsWithTitle:browserTitle boxTitle:boxTitle variables:varType access:accessType all:browseAll
@@ -49699,6 +49708,7 @@
     "Modified: / 24-02-2014 / 22:44:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !NewSystemBrowser methodsFor:'menus-dynamic'!
 
 boockmarksMenu
@@ -55333,6 +55343,7 @@
 
     openHow == #newBrowser ifTrue:[
         brwsr := self class new.
+        brwsr environment: self environment.
         brwsr browserCanvasType:spec.
 
         "/ cannot invoke aBlock here
@@ -55367,8 +55378,9 @@
     ].
     ^ brwsr
 
-    "Created: / 24.2.2000 / 19:15:56 / cg"
-    "Modified: / 18.8.2000 / 16:04:33 / cg"
+    "Created: / 24-02-2000 / 19:15:56 / cg"
+    "Modified: / 18-08-2000 / 16:04:33 / cg"
+    "Modified: / 27-04-2014 / 11:09:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 noteBookView
@@ -56236,6 +56248,7 @@
     ^ navigationState projectListApplication
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-history'!
 
 lastSearchPatterns
@@ -57021,6 +57034,7 @@
     "Created: / 04-12-2011 / 22:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass
@@ -61478,11 +61492,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2056 2014-04-25 09:56:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2057 2014-04-27 10:11:03 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2056 2014-04-25 09:56:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2057 2014-04-27 10:11:03 vrany Exp $'
 !
 
 version_HG
@@ -61491,7 +61505,7 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2056 2014-04-25 09:56:37 cg Exp $'
+    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2057 2014-04-27 10:11:03 vrany Exp $'
 ! !