--- a/FileApplicationNoteBook.st	Tue Jan 27 13:35:58 2015 +0100
+++ b/FileApplicationNoteBook.st	Tue Jan 27 13:36:16 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 AbstractFileBrowser subclass:#FileApplicationNoteBook
 	instanceVariableNames:'canvasHolder selectedEditorPage listOfApplications tabMenuIndex
 		tabList selectionHistoryList privateTabList'
@@ -544,15 +546,17 @@
                 appl notNil ifTrue:[ ^ appl].
             ].
         ].
-        ((anItem fileName mimeTypeOfContents ? '') startsWith:'text') ifFalse:[
-            "/ fallback: open a system utility
-            OperatingSystem 
-                openApplicationForDocument:anItem fileName 
-                operation:#open
-                mimeType:nil 
-                ifNone:[self openDefaultApplicationByItem:anItem].
-            ^ nil.
-        ].            
+        self alwaysUseSmalltalkTools value ifFalse:[
+            ((anItem fileName mimeTypeOfContents ? '') startsWith:'text') ifFalse:[
+                "/ fallback: open a system utility
+                OperatingSystem 
+                    openApplicationForDocument:anItem fileName 
+                    operation:#open
+                    mimeType:nil 
+                    ifNone:[self openDefaultApplicationByItem:anItem].
+                ^ nil.
+            ].            
+        ].
     ].
 
     ^ self openDefaultApplicationByItem:anItem.
@@ -7493,10 +7497,10 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.311 2014-11-26 19:45:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.312 2015-01-27 12:36:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.311 2014-11-26 19:45:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.312 2015-01-27 12:36:16 cg Exp $'
 ! !