--- a/Parser.st	Sat Jan 28 18:08:03 2017 +0100
+++ b/Parser.st	Sun Jan 29 12:55:36 2017 +0100
@@ -11213,7 +11213,8 @@
         (classToCompileFor notNil
         and:[classToCompileFor isMeta not
         and:[classToCompileFor isBuiltInClass not
-        and:[(parser isDoIt not)]]]) ifTrue:[
+        and:[classToCompileFor theNonMetaclass isSharedPool not
+        and:[(parser isDoIt not)]]]]) ifTrue:[
             list add: #InstanceVariable.
         ].
     ] ifFalse:[
@@ -11226,7 +11227,11 @@
                     list add: #ClassInstanceVariable.
                 ].
             ].
-            list addAll: #( #ClassVariable #PrivateClass ).
+            (classToCompileFor notNil and:[ classToCompileFor theNonMetaclass isSharedPool]) ifTrue:[
+                list addAllFirst: #( #ClassVariable nil ).
+            ] ifFalse:[   
+                list addAll: #( #ClassVariable #PrivateClass ).
+            ]
         ]
     ].