--- a/ClassDefinitionChange.st	Fri Apr 04 22:20:51 2014 +0200
+++ b/ClassDefinitionChange.st	Mon Apr 07 18:00:58 2014 +0200
@@ -210,18 +210,21 @@
     nameSpaceName := aNameSpaceName.
     classType := aClassType.
     otherParameters := Dictionary new addAll:otherParametersArg; yourself.
+    private := otherParameters at:#private: ifAbsent:nil.
+    category := otherParameters at:#category: ifAbsent:nil.
 
-    superClassName := otherParameters at:#superclass: ifAbsent:nil.
-    self assert:(superClassName notNil).
-    superClassName notNil ifTrue:[
-        superClassName := superClassName pathString.
+    aClassType == #defineSharedVariable: ifTrue:[
+    ] ifFalse:[
+        superClassName := otherParameters at:#superclass: ifAbsent:nil.
+        self assert:(superClassName notNil).
+        superClassName notNil ifTrue:[
+            superClassName := superClassName pathString.
+        ].
+        indexedType := otherParameters at:#indexedType: ifAbsent:nil.
+        instanceVariableNames := otherParameters at:#instanceVariableNames: ifAbsent:nil.
+        classInstanceVariableNames := otherParameters at:#classInstanceVariableNames: ifAbsent:nil.
+        imports := otherParameters at:#imports: ifAbsent:nil.
     ].
-    indexedType := otherParameters at:#indexedType: ifAbsent:nil.
-    private := otherParameters at:#private: ifAbsent:nil.
-    instanceVariableNames := otherParameters at:#instanceVariableNames: ifAbsent:nil.
-    classInstanceVariableNames := otherParameters at:#classInstanceVariableNames: ifAbsent:nil.
-    imports := otherParameters at:#imports: ifAbsent:nil.
-    category := otherParameters at:#category: ifAbsent:nil.
 
     "Modified: / 15-06-2010 / 14:50:35 / cg"
     "Modified: / 12-12-2013 / 12:59:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -839,11 +842,11 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.89 2014-02-19 13:04:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.90 2014-04-07 16:00:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.89 2014-02-19 13:04:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.90 2014-04-07 16:00:58 cg Exp $'
 !
 
 version_HG
@@ -852,6 +855,6 @@
 !
 
 version_SVN
-    ^ '$Id: ClassDefinitionChange.st,v 1.89 2014-02-19 13:04:59 cg Exp $'
+    ^ '$Id: ClassDefinitionChange.st,v 1.90 2014-04-07 16:00:58 cg Exp $'
 ! !