--- a/Object.st	Fri Sep 28 18:33:10 2012 +0200
+++ b/Object.st	Sun Sep 30 01:47:13 2012 +0200
@@ -528,6 +528,7 @@
 
 
 
+
 !Object methodsFor:'Compatibility-Dolphin'!
 
 stbFixup: anSTBInFiler at: newObjectIndex
@@ -6455,7 +6456,7 @@
 !
 
 className
-    "return the classname of the receivers class"
+    "return the classname of the receiver's class"
 
     ^ self class name
 
@@ -6477,6 +6478,9 @@
     (cls := self class) == self ifTrue:[
         ^ 'a funny object'
     ].
+    cls isNil ifTrue:[
+        ^ 'a nil-classes object'        "/ cannot happen
+    ].
     ^ cls nameWithArticle
 
     "
@@ -9516,11 +9520,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.696 2012-09-20 15:26:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.697 2012-09-29 23:47:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.696 2012-09-20 15:26:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.697 2012-09-29 23:47:13 cg Exp $'
 !
 
 version_SVN