--- a/PackageLoadInProgressQuery.st	Tue Mar 12 18:22:02 2019 +0100
+++ b/PackageLoadInProgressQuery.st	Tue Mar 12 18:22:18 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libbasic' }"
 
 "{ NameSpace: Smalltalk }"
@@ -23,21 +25,23 @@
 !PackageLoadInProgressQuery class methodsFor:'answering queries during load'!
 
 answerNotifyLoading:what do:aBlock
-    [
+    ^ [
         Smalltalk changed:#prePackageLoad with:what.
         self answer:true do:aBlock
     ] ensure:[
         Smalltalk changed:#postPackageLoad with:what.
     ].
+
+    "Modified (format): / 12-03-2019 / 17:51:13 / Stefan Vogel"
 ! !
 
 !PackageLoadInProgressQuery class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PackageLoadInProgressQuery.st,v 1.1 2015-02-01 13:19:54 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/PackageLoadInProgressQuery.st,v 1.1 2015-02-01 13:19:54 cg Exp $'
+    ^ '$Header$'
 ! !