--- a/BrowserView.st	Tue Aug 11 22:03:52 1998 +0200
+++ b/BrowserView.st	Wed Aug 12 14:08:44 1998 +0200
@@ -1015,7 +1015,7 @@
                     ifTrue:[
                         self busyLabel:'writing: %1' with:fileName.
                         aClass isLoaded ifFalse:[
-                            self warn:'cannot fileOut unloaded class: %1\\skipped.' with:currentClass name.
+                            self warn:'cannot fileOut unloaded class: %1\\skipped.' with:aClass name asText allBold.
                         ] ifTrue:[
                             aClass fileOutOn:aStream withTimeStamp:true withInitialize:false.
                             (aClass class implements:#initialize) ifTrue:[
@@ -1043,7 +1043,7 @@
     self normalLabel.
 
     "Created: / 11.10.1997 / 16:38:29 / cg"
-    "Modified: / 7.8.1998 / 17:23:06 / cg"
+    "Modified: / 12.8.1998 / 11:04:11 / cg"
 !
 
 classCategoryFileOutBinaryEach
@@ -1147,7 +1147,7 @@
                 ifTrue:[
                     self busyLabel:'saving: %1' with:aClass name.
                     Class fileOutErrorSignal handle:[:ex |
-                        self warn:'cannot fileOut: %1\(%2)' with:aClass name with:ex errorString.
+                        self warn:'cannot fileOut: %1\(%2)\\skipped.' with:(aClass name asText allBold) with:ex errorString.
                         ex return.
                     ] do:[
                         fn := (Smalltalk fileNameForClass:aClass) , '.st'.
@@ -1160,7 +1160,7 @@
     ]
 
     "Created: / 7.8.1998 / 17:10:59 / cg"
-    "Modified: / 7.8.1998 / 17:25:28 / cg"
+    "Modified: / 12.8.1998 / 11:13:26 / cg"
 !
 
 classCategoryFileOutEachIn
@@ -12170,6 +12170,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.445 1998-08-07 16:47:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.446 1998-08-12 12:08:44 cg Exp $'
 ! !
 BrowserView initialize!

--- a/BrwsrView.st	Tue Aug 11 22:03:52 1998 +0200
+++ b/BrwsrView.st	Wed Aug 12 14:08:44 1998 +0200
@@ -1015,7 +1015,7 @@
                     ifTrue:[
                         self busyLabel:'writing: %1' with:fileName.
                         aClass isLoaded ifFalse:[
-                            self warn:'cannot fileOut unloaded class: %1\\skipped.' with:currentClass name.
+                            self warn:'cannot fileOut unloaded class: %1\\skipped.' with:aClass name asText allBold.
                         ] ifTrue:[
                             aClass fileOutOn:aStream withTimeStamp:true withInitialize:false.
                             (aClass class implements:#initialize) ifTrue:[
@@ -1043,7 +1043,7 @@
     self normalLabel.
 
     "Created: / 11.10.1997 / 16:38:29 / cg"
-    "Modified: / 7.8.1998 / 17:23:06 / cg"
+    "Modified: / 12.8.1998 / 11:04:11 / cg"
 !
 
 classCategoryFileOutBinaryEach
@@ -1147,7 +1147,7 @@
                 ifTrue:[
                     self busyLabel:'saving: %1' with:aClass name.
                     Class fileOutErrorSignal handle:[:ex |
-                        self warn:'cannot fileOut: %1\(%2)' with:aClass name with:ex errorString.
+                        self warn:'cannot fileOut: %1\(%2)\\skipped.' with:(aClass name asText allBold) with:ex errorString.
                         ex return.
                     ] do:[
                         fn := (Smalltalk fileNameForClass:aClass) , '.st'.
@@ -1160,7 +1160,7 @@
     ]
 
     "Created: / 7.8.1998 / 17:10:59 / cg"
-    "Modified: / 7.8.1998 / 17:25:28 / cg"
+    "Modified: / 12.8.1998 / 11:13:26 / cg"
 !
 
 classCategoryFileOutEachIn
@@ -12170,6 +12170,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.445 1998-08-07 16:47:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.446 1998-08-12 12:08:44 cg Exp $'
 ! !
 BrowserView initialize!