--- a/Tools__NewSystemBrowser.st	Sat Sep 22 12:49:09 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Sat Sep 22 15:53:57 2018 +0200
@@ -33297,7 +33297,7 @@
 
 classMenuOpenClassCreationWizard
     |dialog newClassName superclassName superclass package namespace namespaceName
-     namespacePrefix createdClass category language|
+     namespacePrefix createdClass category language indexType|
 
     dialog := NewClassWizardDialog new.
     dialog masterApplication:self.
@@ -33315,7 +33315,8 @@
     package := (dialog packageHolder value ? '') withoutSeparators.
     namespaceName := (dialog nameSpaceHolder value ? 'Smalltalk') withoutSeparators.
     category := (dialog categoryHolder value ? '* as yet unspecified *') withoutSeparators.
-
+    indexType := dialog indexType.
+    
     (namespaceName = 'Smalltalk') ifTrue:[
         namespacePrefix := ''
     ] ifFalse:[
@@ -33325,8 +33326,12 @@
 
     Class packageQuerySignal answer:package
     do:[
-        |builder|
-
+        |builder variable words pointers|
+
+        variable := indexType.
+        words := indexType == #word.
+        pointers := indexType == #pointer.
+        
         builder := ClassBuilder new.
         builder metaclass:(language metaClass).
         builder
@@ -33334,9 +33339,7 @@
             inEnvironment:namespace
             subclassOf:superclass
             instanceVariableNames:(dialog instVarNamesHolder value)
-            variable:false
-            words:false
-            pointers:false
+            variable:variable words:words pointers:pointers
             classVariableNames:(dialog classVarNamesHolder value)
             poolDictionaries:''
             category:category
@@ -33392,6 +33395,7 @@
     ].
 
     "Modified: / 05-02-2017 / 01:25:26 / cg"
+    "Modified: / 22-09-2018 / 15:45:43 / Claus Gittinger"
 !
 
 classMenuOpenResourceFileEditor
@@ -58911,7 +58915,7 @@
 
     |offered already allProjects classesProjects selectedClasses selectedMethods|
 
-    allProjects := environment allPackageIDs.
+    allProjects := (environment ? Smalltalk) allPackageIDs.
 
     selectedClasses := self selectedClassesValue.
     selectedClasses notNil ifTrue:[
@@ -58953,6 +58957,7 @@
 
     "Created: / 11-08-2006 / 13:31:34 / cg"
     "Modified: / 28-02-2012 / 16:45:05 / cg"
+    "Modified: / 22-09-2018 / 12:56:26 / Claus Gittinger"
 !
 
 askForSelector:title allowBuffer:allowBuffer allowBrowser:allowBrowser thenDo:aBlock