--- a/Class.st	Wed Jan 24 23:40:13 1996 +0100
+++ b/Class.st	Thu Jan 25 00:02:47 1996 +0100
@@ -3497,7 +3497,7 @@
     self isVariable ifFalse:[
 	^ self class
 	    name:t
-	    inEnvironment:(Smalltalk currentNamespace)
+	    inEnvironment:(Smalltalk currentNameSpace)
 	    subclassOf:self
 	    instanceVariableNames:f
 	    variable:false
@@ -3570,7 +3570,7 @@
 
     ^ self class
 	name:t
-	inEnvironment:(Smalltalk currentNamespace)
+	inEnvironment:(Smalltalk currentNameSpace)
 	subclassOf:self
 	instanceVariableNames:f
 	variable:true
@@ -3597,7 +3597,7 @@
 
     ^ self class
 	name:t
-	inEnvironment:(Smalltalk currentNamespace)
+	inEnvironment:(Smalltalk currentNameSpace)
 	subclassOf:self
 	instanceVariableNames:f
 	variable:#double 
@@ -3624,7 +3624,7 @@
 
     ^ self class
 	name:t
-	inEnvironment:(Smalltalk currentNamespace)
+	inEnvironment:(Smalltalk currentNameSpace)
 	subclassOf:self
 	instanceVariableNames:f
 	variable:#float 
@@ -3650,7 +3650,7 @@
 
     ^ self class
 	name:t
-	inEnvironment:(Smalltalk currentNamespace)
+	inEnvironment:(Smalltalk currentNameSpace)
 	subclassOf:self
 	instanceVariableNames:f
 	variable:#long 
@@ -3676,7 +3676,7 @@
 
     ^ self class
 	name:t
-	inEnvironment:(Smalltalk currentNamespace)
+	inEnvironment:(Smalltalk currentNameSpace)
 	subclassOf:self
 	instanceVariableNames:f
 	variable:true
@@ -3702,7 +3702,7 @@
 
     ^ self class
 	name:t
-	inEnvironment:(Smalltalk currentNamespace)
+	inEnvironment:(Smalltalk currentNameSpace)
 	subclassOf:self
 	instanceVariableNames:f
 	variable:true
@@ -3718,6 +3718,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.125 1996-01-24 22:40:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.126 1996-01-24 23:02:47 cg Exp $'
 ! !
 Class initialize!