--- a/Tools__NewSystemBrowser.st	Mon Feb 13 20:15:20 2017 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Feb 13 20:40:59 2017 +0100
@@ -52,7 +52,7 @@
 		LastClassSearchBoxShowedJavaOnly LastRemoteRepository
 		LastClassDocDirectory DefaultShowCoverage LastLintedPackage
 		LastSearchedImplementors LastSearchedSenders
-		LastComparedClassName'
+		LastComparedClassName SkipCompilabilityChecksForFastCheckin'
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
 !
@@ -29763,11 +29763,14 @@
 
     |stream|
 
+    SkipCompilabilityChecksForFastCheckin == true ifTrue:[^ ''].
+    
     stream := WriteStream on:(Text new:100).
     self checkCompilabilityOfAll:aCollectionOfClasses withExtensions:withExtensions errorsOnly:errorsOnly outputTo:stream.
     ^ stream contents.
 
     "Created: / 02-11-2010 / 13:14:47 / cg"
+    "Modified: / 13-02-2017 / 20:40:02 / cg"
 !
 
 checkCompilabilityOfAll:aCollectionOfClasses withExtensions:withExtensions errorsOnly:errorsOnly outputTo:outStream
@@ -39849,7 +39852,7 @@
 
                         pName := aProcess nameOrId.
 
-                        "/ if its a windowGroup process,
+                        "/ if it's a windowGroup process,
                         "/ fetch its first topViews name and add.
                         "/ (allows selecting among multiple browsers ...)
                         winLabel := ''.
@@ -39923,6 +39926,7 @@
     "Created: / 14-10-1996 / 15:40:53 / cg"
     "Modified: / 02-02-1998 / 12:39:38 / stefan"
     "Modified: / 06-07-2011 / 11:15:52 / cg"
+    "Modified (comment): / 13-02-2017 / 20:33:26 / cg"
 !
 
 debugMenuClearCoverageInfo
@@ -58922,7 +58926,7 @@
 
 displayedClassNameOf:aClass
     "depending on the current nameSpace, either show a classes
-     fullname or its name without the namespace prefix (if its in the current)"
+     fullname or its name without the namespace prefix (if it's in the current)"
 
     |nm ns currentNamespace|
 
@@ -58957,8 +58961,9 @@
     ].
     ^ nm.
 
-    "Created: / 20.12.1996 / 17:46:41 / cg"
-    "Modified: / 24.2.2000 / 13:49:06 / cg"
+    "Created: / 20-12-1996 / 17:46:41 / cg"
+    "Modified: / 24-02-2000 / 13:49:06 / cg"
+    "Modified (comment): / 13-02-2017 / 20:33:33 / cg"
 !
 
 explain:selection inCode:code
@@ -59295,7 +59300,7 @@
 !
 
 showInfo:msg
-    "if its a multiline message, only the first line is shown"
+    "if it's a multiline message, only the first line is shown"
     
     |messageShown canvas lbl doAnimate|
     
@@ -59339,6 +59344,8 @@
      WindowGroup activeApplication showInfo: ('Hello\World\Bla' withCRs) asStringCollection
      WindowGroup activeApplication showInfo: #('Hello' 'World' 'Bla')
     "
+
+    "Modified (comment): / 13-02-2017 / 20:33:39 / cg"
 !
 
 showMethodInfo