--- a/Metaclass.st	Wed Jan 29 23:52:07 1997 +0100
+++ b/Metaclass.st	Thu Jan 30 11:13:05 1997 +0100
@@ -862,15 +862,17 @@
             ]
         ].
 
-        "/ be very careful, when adding classes
-        "/ to a namespace. When adding, all methods within the
-        "/ same namespace which access the unprefixed-global
-        "/ must be recompiled (so they access the new class)
+        namespace isNamespace ifTrue:[
+            "/ be very careful, when adding classes
+            "/ to a namespace. When adding, all methods within the
+            "/ same namespace which access the unprefixed-global
+            "/ must be recompiled (so they access the new class)
 
-        recompileGlobalAccessTo notNil ifTrue:[
-            self recompileGlobalAccessorsTo:recompileGlobalAccessTo
-                 in:namespace
-                 except:newClass
+            recompileGlobalAccessTo notNil ifTrue:[
+                self recompileGlobalAccessorsTo:recompileGlobalAccessTo
+                     in:namespace
+                     except:newClass
+            ].
         ].
 
         ^ newClass
@@ -1318,7 +1320,7 @@
 
     "Created: 26.5.1996 / 11:55:26 / cg"
     "Modified: 18.6.1996 / 14:19:39 / stefan"
-    "Modified: 29.1.1997 / 17:50:07 / cg"
+    "Modified: 30.1.1997 / 11:12:43 / cg"
 !
 
 name:newName inEnvironment:aSystemDictionary
@@ -1803,5 +1805,5 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.104 1997-01-29 21:03:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.105 1997-01-30 10:13:05 cg Exp $'
 ! !