--- a/Class.st	Sun Jul 22 10:06:13 2012 +0200
+++ b/Class.st	Sun Jul 22 11:10:54 2012 +0200
@@ -303,12 +303,14 @@
 
     |idx|
 
+    name isNil ifTrue:[^ nil].
+
     idx := name lastIndexOf:$:.
     [idx > 1 and:[ (name at:(idx-1)) ~~ $: ]] whileTrue:[
-	idx := name lastIndexOf:$: startingAt:idx-2.
+        idx := name lastIndexOf:$: startingAt:idx-2.
     ].
     idx == 0 ifTrue:[
-	^ name
+        ^ name
     ].
 
     ^ name copyFrom:idx+1.
@@ -317,6 +319,8 @@
      Class nameWithoutPrefix:'Array'
      Class nameWithoutPrefix:'Tools::Array'
     "
+
+    "Modified: / 13-06-2012 / 14:41:21 / cg"
 !
 
 revisionInfoFromString:aString
@@ -5472,11 +5476,11 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.606 2012-07-20 13:22:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.607 2012-07-22 09:10:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.606 2012-07-20 13:22:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.607 2012-07-22 09:10:54 cg Exp $'
 !
 
 version_SVN