--- a/ClassDescription.st	Wed Sep 01 13:29:47 1999 +0200
+++ b/ClassDescription.st	Wed Sep 01 17:10:07 1999 +0200
@@ -1805,6 +1805,54 @@
 
 !ClassDescription methodsFor:'printOut'!
 
+nameWithNameSpacePrefix
+    "return my names printString, 
+     with nameSpace prefix (even if its the Smalltalk namespace)"
+
+    |nm owner|
+
+    (owner := self owningClass) notNil ifTrue:[
+        ^ (owner nameWithNameSpacePrefix , '::' , self nameWithoutPrefix)
+    ]. 
+
+    nm := self name.
+    self nameSpace == Smalltalk ifTrue:[
+        nm := 'Smalltalk::' , nm
+    ].
+    ^ nm
+
+    "a public class:
+     Array name                 
+     Array nameWithoutPrefix    
+     Array nameWithoutNameSpacePrefix  
+     Array nameWithNameSpacePrefix     
+    "
+
+    "a private class:
+     Method::MethodWhoInfo name                         
+     Method::MethodWhoInfo nameWithoutPrefix            
+     Method::MethodWhoInfo nameWithoutNameSpacePrefix   
+     Method::MethodWhoInfo nameWithNameSpacePrefix   
+    "
+
+    "a namespace class:
+     CodingExamples::TopClass name                      
+     CodingExamples::TopClass nameWithoutPrefix         
+     CodingExamples::TopClass nameWithoutNameSpacePrefix
+     CodingExamples::TopClass nameWithNameSpacePrefix
+    "
+
+    "a private class in a namespace class:
+     CodingExamples::TopClass::SubClass name   
+     CodingExamples::TopClass::SubClass nameWithoutPrefix 
+     CodingExamples::TopClass::SubClass nameWithoutNameSpacePrefix
+     CodingExamples::TopClass::SubClass nameWithNameSpacePrefix
+    "
+
+    "Modified: 5.1.1997 / 18:22:57 / cg"
+    "Created: 1.4.1997 / 16:20:13 / stefan"
+!
+
 nameWithoutNameSpacePrefix
     "helper for fileOut and others - return my names printString, 
      without any nameSpace prefix (but with owningClasses prefix)"
@@ -3429,6 +3477,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.87 1999-08-18 15:15:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.88 1999-09-01 15:10:07 cg Exp $'
 ! !
 ClassDescription initialize!