--- a/ClassCategoryReader.st	Thu Aug 16 19:17:59 2001 +0200
+++ b/ClassCategoryReader.st	Fri Aug 17 14:37:43 2001 +0200
@@ -229,7 +229,8 @@
 
     |aString done method compiler canMakeSourceRef sourceFile pos nm src s silent|
 
-    silent := beSilent ifNil:[Smalltalk silentLoading].
+
+    (silent := beSilent isNil) ifTrue:[silent := Smalltalk silentLoading].
     silent == true ifFalse:[
         myClass isNil ifTrue:[
             nm := '** UndefinedClass **'
@@ -426,6 +427,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.45 2000-12-13 19:09:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.46 2001-08-17 12:37:00 cg Exp $'
 ! !
 ClassCategoryReader initialize!

--- a/Context.st	Thu Aug 16 19:17:59 2001 +0200
+++ b/Context.st	Fri Aug 17 14:37:43 2001 +0200
@@ -816,7 +816,7 @@
     [context notNil] whileTrue: [
         context fullPrint.
         context := context sender.
-        nOrNil ifNotNil:[
+        nOrNil notNil ifTrue:[
             (count := count+1) > nOrNil ifTrue:[^self].
         ]
     ]
@@ -1962,6 +1962,6 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.106 2001-01-10 17:11:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.107 2001-08-17 12:37:43 cg Exp $'
 ! !
 Context initialize!