--- a/Tools_NavigatorModel.st	Sat Dec 07 16:02:10 2013 +0100
+++ b/Tools_NavigatorModel.st	Sat Dec 07 16:02:33 2013 +0100
@@ -383,7 +383,7 @@
     topApp := self topApplication.
     (topApp notNil and:[topApp ~~ self]) ifTrue:[
         "Fetch the environment from the top application, fallback to previous environment"
-        self environment: (topApp perform:#environment ifNotUnderstood:[environment])
+        self environment: (topApp perform:#environment ifNotUnderstood:[environment]) ? environment ? Smalltalk
     ]
 
     "Created: / 03-09-2013 / 16:25:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -425,11 +425,11 @@
 !NavigatorModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.24 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.25 2013-12-07 15:02:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.24 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.25 2013-12-07 15:02:33 cg Exp $'
 !
 
 version_HG
@@ -438,7 +438,7 @@
 !
 
 version_SVN
-    ^ '§Id: Tools__NavigatorModel.st 7802 2011-07-05 18:33:36Z vranyj1 §'
+    ^ '$Id: Tools_NavigatorModel.st,v 1.25 2013-12-07 15:02:33 cg Exp $'
 ! !