--- a/Smalltalk.st	Fri Oct 30 16:26:14 2009 +0100
+++ b/Smalltalk.st	Fri Oct 30 16:28:09 2009 +0100
@@ -2012,6 +2012,17 @@
     prev := SilentLoading.
     SilentLoading := aBoolean.
     ^ prev
+!
+
+silentlyLoadingDo:aBlock
+    "evaluates aBlock with silent loading on - no compilation messages (except errors)
+     are shown on the transcript"
+
+    |sav|
+
+    sav := SilentLoading.
+    SilentLoading := true.
+    aBlock ensure:[ SilentLoading := sav ].
 ! !
 
 !Smalltalk class methodsFor:'misc accessing'!
@@ -7355,9 +7366,9 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.904 2009-10-30 15:26:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.905 2009-10-30 15:28:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.904 2009-10-30 15:26:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.905 2009-10-30 15:28:09 cg Exp $'
 ! !