--- a/NameSpace.st	Mon Feb 05 15:57:38 2007 +0100
+++ b/NameSpace.st	Mon Feb 05 16:40:19 2007 +0100
@@ -356,6 +356,16 @@
 
 !
 
+loadedClassNamed:aString
+    "return the class with name aString, or nil if absent.
+     To get to the metaClass, append ' class' to the string.
+     Do not autoload the owning class of a private class."
+
+    ^ Smalltalk loadedClassNamed:(self name , '::' , aString)
+
+    "Created: 9.9.1997 / 03:33:56 / cg"
+!
+
 package
     self isNameSpace ifTrue:[    
         ^ nil       "all nameSpaces are outside of any package"
@@ -581,5 +591,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.64 2006-11-10 16:24:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.65 2007-02-05 15:40:19 stefan Exp $'
 ! !