--- a/ProjectDefinition.st	Wed Nov 09 15:17:23 2016 +0100
+++ b/ProjectDefinition.st	Wed Nov 09 15:24:56 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2006 by eXept Software AG
               All Rights Reserved
@@ -5502,9 +5504,9 @@
             [
                 newStuffHasBeenLoaded := false.
 
-                (self infoPrinting and:[Smalltalk silentLoading not]) ifTrue:[
+                Smalltalk silentLoading ifFalse:[
                     "/ thisContext fullPrintAll.
-                    Transcript showCR:('loading %1%2...'
+                    Logger info:('loading %1%2...'
                                         bindWith:(asAutoloaded ifTrue:['as autoloaded '] ifFalse:[''])
                                         with:self name).
                 ].
@@ -5582,7 +5584,7 @@
     self projectIsLoaded ifFalse:[^ false].
     thisContext isRecursive ifTrue:[^ false].
 
-    (self infoPrinting and:[Smalltalk silentLoading not]) ifTrue:[
+    Smalltalk silentLoading ifFalse:[
         "/ thisContext fullPrintAll.
         Logger info:'unloading %1' with:self name.
     ].
@@ -6450,7 +6452,7 @@
                     ] ifFalse:[
                         errMsg := 'missing class for extension: ',className.
                     ].
-                    Transcript showCR:errMsg.
+                    Logger error:errMsg.
                     self error:errMsg mayProceed:true.
                     classesAlreadyWarned add:className.
                 ].
@@ -7530,7 +7532,7 @@
 
             cls := Smalltalk classNamed:nm.
             cls isNil ifTrue:[
-                Transcript showCR:('%1: failed to autoload class %2' bindWith:self name with:nm)
+                Logger warning:'%1: failed to autoload class %2' with:self name with:nm
             ].
             cls
         ]