--- a/Smalltalk.st	Fri Sep 25 21:02:42 2009 +0200
+++ b/Smalltalk.st	Fri Sep 25 21:33:50 2009 +0200
@@ -774,6 +774,19 @@
 
 !Smalltalk class methodsFor:'Compatibility-VW5.4'!
 
+defineClass:nameSymbol superclass:superclass indexedType:indexed private:private instanceVariableNames:instVars classInstanceVariableNames:classInstVars imports:imports category:category 
+    ^ self 
+        defineClass:nameSymbol
+        superclass:superclass
+        indexedType:indexed
+        private:private
+        instanceVariableNames:instVars
+        classInstanceVariableNames:classInstVars
+        imports:imports
+        category:category
+        attributes:nil
+!
+
 defineClass:nameSymbol superclass:superclass indexedType:indexed private:private instanceVariableNames:instVars classInstanceVariableNames:classInstVars imports:imports category:category attributes:annotations
     |newClass|
 
@@ -791,6 +804,16 @@
 	^ newClass
     ].
     self shouldImplement.
+!
+
+defineNameSpace:nameSymbol private:private imports:imports category:category
+    |newNameSpace|
+
+    private ifTrue:[self halt].     "/ what to do ?
+    imports withoutSeparators notEmpty ifTrue:[self halt].     "/ what to do ?
+    newNameSpace := NameSpace name:nameSymbol.
+    newNameSpace setCategory:category.    
+    ^ newNameSpace
 ! !
 
 !Smalltalk class methodsFor:'accessing'!
@@ -7212,5 +7235,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.888 2009-09-24 09:22:24 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.889 2009-09-25 19:33:50 cg Exp $'
 ! !