--- a/Metaclass.st	Thu Mar 06 16:58:56 2014 +0100
+++ b/Metaclass.st	Thu Mar 06 18:28:18 2014 +0100
@@ -424,17 +424,23 @@
         ]
     ].
 
+
+"/  No, always use namespace pragma, otherwise when reading back
+"/  from stream, we need somehow to tell what's namespace and what's
+"/  a private class in another class. So namespaces are **aleays** denoted by
+"/  namespace pragma.
+
     "/ the backward compatible namespace directive is only used
     "/ for non-private classes.
     "/ Private classes cannot be filed into another smalltalk anyway,
     "/ and there is no need to complicate global lookup in stc...
-
-    owner notNil ifTrue:[
-        forceNoNameSpace := ForceNoNameSpaceQuerySignal query == true.
-        forceNoNameSpace ifFalse:[
-            fullName := true.
-        ]
-    ].
+"/ 
+"/    owner notNil ifTrue:[
+"/        forceNoNameSpace := ForceNoNameSpaceQuerySignal query == true.
+"/        forceNoNameSpace ifFalse:[
+"/            fullName := true.
+"/        ]
+"/    ].
 
     fullName ifFalse:[
         (owner isNil or:[forceNameSpace]) ifTrue:[
@@ -610,6 +616,7 @@
     "Created: / 04-01-1997 / 20:38:16 / cg"
     "Modified: / 18-03-1999 / 18:15:46 / stefan"
     "Modified: / 08-10-2007 / 13:28:59 / cg"
+    "Modified: / 06-03-2014 / 10:32:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileOutClassInstVarDefinitionOn:aStream withNameSpace:withNameSpace
@@ -911,7 +918,7 @@
 !Metaclass class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.212 2014-02-05 17:17:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.213 2014-03-06 17:28:18 vrany Exp $'
 ! !