--- a/ClassDescription.st Tue Dec 01 07:14:07 2015 +0000
+++ b/ClassDescription.st Sat Dec 05 06:38:54 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -2486,18 +2484,18 @@
!ClassDescription methodsFor:'printOut'!
nameWithNameSpacePrefix
- "return my names printString,
+ "return my name's printString,
with nameSpace prefix (even if its the Smalltalk namespace)"
|nm owner|
(owner := self owningClass) notNil ifTrue:[
- ^ (owner nameWithNameSpacePrefix , '::' , self nameWithoutPrefix)
+ ^ (owner nameWithNameSpacePrefix , '::' , self nameWithoutPrefix)
].
nm := self name.
self nameSpace == Smalltalk ifTrue:[
- nm := 'Smalltalk::' , nm
+ nm := 'Smalltalk::' , nm
].
^ nm