--- a/Smalltalk.st	Thu Apr 21 13:13:33 2011 +0200
+++ b/Smalltalk.st	Tue Apr 26 11:45:11 2011 +0200
@@ -1042,6 +1042,7 @@
     "Created: 20.6.1997 / 16:58:28 / cg"
 ! !
 
+
 !Smalltalk class methodsFor:'browsing'!
 
 browseAllCallsOn:aSelectorSymbol
@@ -5841,14 +5842,9 @@
     "same as fileIn:, but do not output 'compiled...'-messages on Transcript.
      Main use is during startup."
 
-    |wasSilent|
-
-    wasSilent := self silentLoading:true.
-    [
-	self fileIn:aFilename
-    ] ensure:[
-	self silentLoading:wasSilent
-    ]
+    self silentlyLoadingDo:[
+        self fileIn:aFilename
+    ].
 ! !
 
 !Smalltalk class methodsFor:'system management-files'!
@@ -7489,9 +7485,9 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.949 2011-03-23 16:26:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.950 2011-04-26 09:45:11 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.949 2011-03-23 16:26:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.950 2011-04-26 09:45:11 stefan Exp $'
 ! !