@@ -1,4 +1,4 @@
-Smalltalk current createPackage: 'AmberCli'!
+Smalltalk createPackage: 'AmberCli'!
Object subclass: #AmberCli
instanceVariableNames: ''
package: 'AmberCli'!
-Smalltalk current createPackage: 'Benchfib'!
+Smalltalk createPackage: 'Benchfib'!
Object subclass: #Benchfib
package: 'Benchfib'!
-Smalltalk current createPackage: 'Canvas'!
+Smalltalk createPackage: 'Canvas'!
Object subclass: #BrowserInterface
package: 'Canvas'!
-Smalltalk current createPackage: 'Compiler-AST'!
+Smalltalk createPackage: 'Compiler-AST'!
Object subclass: #Node
instanceVariableNames: 'parent position nodes shouldBeInlined shouldBeAliased'
package: 'Compiler-AST'!
-Smalltalk current createPackage: 'Compiler-Core'!
+Smalltalk createPackage: 'Compiler-Core'!
Object subclass: #AbstractCodeGenerator
instanceVariableNames: 'currentClass source'
package: 'Compiler-Core'!
-Smalltalk current createPackage: 'Compiler-Exceptions'!
+Smalltalk createPackage: 'Compiler-Exceptions'!
Error subclass: #CompilerError
package: 'Compiler-Exceptions'!
-Smalltalk current createPackage: 'Compiler-IR'!
+Smalltalk createPackage: 'Compiler-IR'!
NodeVisitor subclass: #IRASTTranslator
instanceVariableNames: 'source theClass method sequence nextAlias'
package: 'Compiler-IR'!
-Smalltalk current createPackage: 'Compiler-Inlining'!
+Smalltalk createPackage: 'Compiler-Inlining'!
IRAssignment subclass: #IRInlinedAssignment
package: 'Compiler-Inlining'!
-Smalltalk current createPackage: 'Compiler-Interpreter'!
+Smalltalk createPackage: 'Compiler-Interpreter'!
BlockClosure subclass: #AIBlockClosure
instanceVariableNames: 'node outerContext'
package: 'Compiler-Interpreter'!
-Smalltalk current createPackage: 'Compiler-Semantic'!
+Smalltalk createPackage: 'Compiler-Semantic'!
Object subclass: #LexicalScope
instanceVariableNames: 'node instruction temps args outerScope blockIndex'
package: 'Compiler-Semantic'!
-Smalltalk current createPackage: 'Compiler-Tests'!
+Smalltalk createPackage: 'Compiler-Tests'!
TestCase subclass: #ASTParsingTest
package: 'Compiler-Tests'!
-Smalltalk current createPackage: 'Examples'!
+Smalltalk createPackage: 'Examples'!
Widget subclass: #Counter
instanceVariableNames: 'count header'
package: 'Examples'!
-Smalltalk current createPackage: 'Helios-Announcements'!
+Smalltalk createPackage: 'Helios-Announcements'!
Object subclass: #HLAboutToChange
instanceVariableNames: 'actionBlock'
package: 'Helios-Announcements'!
-Smalltalk current createPackage: 'Helios-Browser'!
+Smalltalk createPackage: 'Helios-Browser'!
HLWidget subclass: #HLBrowser
instanceVariableNames: 'model packagesListWidget classesListWidget protocolsListWidget methodsListWidget sourceWidget bottomDiv'
package: 'Helios-Browser'!
-Smalltalk current createPackage: 'Helios-Commands-Browser'!
+Smalltalk createPackage: 'Helios-Commands-Browser'!
HLToolCommand subclass: #HLBrowserCommand
package: 'Helios-Commands-Browser'!
-Smalltalk current createPackage: 'Helios-Commands-Core'!
+Smalltalk createPackage: 'Helios-Commands-Core'!
Object subclass: #HLCommand
instanceVariableNames: 'input'
package: 'Helios-Commands-Core'!
-Smalltalk current createPackage: 'Helios-Commands-Tools'!
+Smalltalk createPackage: 'Helios-Commands-Tools'!
HLModelCommand subclass: #HLToolCommand
package: 'Helios-Commands-Tools'!
-Smalltalk current createPackage: 'Helios-Core'!
+Smalltalk createPackage: 'Helios-Core'!
InterfacingObject subclass: #HLModel
instanceVariableNames: 'announcer environment'
package: 'Helios-Core'!
-Smalltalk current createPackage: 'Helios-Debugger'!
+Smalltalk createPackage: 'Helios-Debugger'!
Object subclass: #HLContextInspectorDecorator
instanceVariableNames: 'context'
package: 'Helios-Debugger'!
-Smalltalk current createPackage: 'Helios-Exceptions'!
+Smalltalk createPackage: 'Helios-Exceptions'!
Error subclass: #HLError
package: 'Helios-Exceptions'!
-Smalltalk current createPackage: 'Helios-Helpers'!
+Smalltalk createPackage: 'Helios-Helpers'!
Object subclass: #HLClassifier
instanceVariableNames: 'next method'
package: 'Helios-Helpers'!
-Smalltalk current createPackage: 'Helios-Inspector'!
+Smalltalk createPackage: 'Helios-Inspector'!
HLNavigationListWidget subclass: #HLInspectorDisplayWidget
instanceVariableNames: 'model'
package: 'Helios-Inspector'!
-Smalltalk current createPackage: 'Helios-KeyBindings'!
+Smalltalk createPackage: 'Helios-KeyBindings'!
Object subclass: #HLBinding
instanceVariableNames: 'key label'
package: 'Helios-KeyBindings'!
-Smalltalk current createPackage: 'Helios-Layout'!
+Smalltalk createPackage: 'Helios-Layout'!
HLWidget subclass: #HLContainer
instanceVariableNames: 'splitter'
package: 'Helios-Layout'!
-Smalltalk current createPackage: 'Helios-References'!
+Smalltalk createPackage: 'Helios-References'!
Object subclass: #HLMethodReference
instanceVariableNames: 'selector methodClass'
package: 'Helios-References'!
-Smalltalk current createPackage: 'Helios-Transcript'!
+Smalltalk createPackage: 'Helios-Transcript'!
HLWidget subclass: #HLTranscript
instanceVariableNames: 'textarea'
package: 'Helios-Transcript'!
-Smalltalk current createPackage: 'Helios-Workspace-Tests'!
+Smalltalk createPackage: 'Helios-Workspace-Tests'!
TestCase subclass: #HLCodeWidgetTest
package: 'Helios-Workspace-Tests'!
-Smalltalk current createPackage: 'Helios-Workspace'!
+Smalltalk createPackage: 'Helios-Workspace'!
Object subclass: #HLCodeModel
instanceVariableNames: 'announcer environment receiver'
package: 'Helios-Workspace'!
-Smalltalk current createPackage: 'IDE'!
+Smalltalk createPackage: 'IDE'!
Widget subclass: #ClassesList
instanceVariableNames: 'browser ul nodes'
package: 'IDE'!
-Smalltalk current createPackage: 'Kernel-Announcements'!
+Smalltalk createPackage: 'Kernel-Announcements'!
Object subclass: #AnnouncementSubscription
instanceVariableNames: 'valuable announcementClass'
package: 'Kernel-Announcements'!
-Smalltalk current createPackage: 'Kernel-Classes'!
+Smalltalk createPackage: 'Kernel-Classes'!
Object subclass: #Behavior
package: 'Kernel-Classes'!
-Smalltalk current createPackage: 'Kernel-Collections'!
+Smalltalk createPackage: 'Kernel-Collections'!
Object subclass: #Association
instanceVariableNames: 'key value'
package: 'Kernel-Collections'!
-Smalltalk current createPackage: 'Kernel-Exceptions'!
+Smalltalk createPackage: 'Kernel-Exceptions'!
Object subclass: #Error
instanceVariableNames: 'messageText'
package: 'Kernel-Exceptions'!
-Smalltalk current createPackage: 'Kernel-ImportExport'!
+Smalltalk createPackage: 'Kernel-ImportExport'!
Object subclass: #AbstractExporter
package: 'Kernel-ImportExport'!
-Smalltalk current createPackage: 'Kernel-Infrastructure'!
+Smalltalk createPackage: 'Kernel-Infrastructure'!
Object subclass: #InspectorHandler
package: 'Kernel-Infrastructure'!
-Smalltalk current createPackage: 'Kernel-Methods'!
+Smalltalk createPackage: 'Kernel-Methods'!
Object subclass: #BlockClosure
package: 'Kernel-Methods'!
-Smalltalk current createPackage: 'Kernel-Objects'!
+Smalltalk createPackage: 'Kernel-Objects'!
nil subclass: #ProtoObject
package: 'Kernel-Objects'!
-Smalltalk current createPackage: 'Kernel-Tests'!
+Smalltalk createPackage: 'Kernel-Tests'!
TestCase subclass: #AnnouncementSubscriptionTest
package: 'Kernel-Tests'!
-Smalltalk current createPackage: 'Kernel-Transcript'!
+Smalltalk createPackage: 'Kernel-Transcript'!
Object subclass: #ConsoleTranscript
package: 'Kernel-Transcript'!
-Smalltalk current createPackage: 'SUnit-Tests'!
+Smalltalk createPackage: 'SUnit-Tests'!
TestCase subclass: #ExampleSetTest
instanceVariableNames: 'empty full'
package: 'SUnit-Tests'!
-Smalltalk current createPackage: 'SUnit'!
+Smalltalk createPackage: 'SUnit'!
Object subclass: #ResultAnnouncement
instanceVariableNames: 'result'
package: 'SUnit'!
-Smalltalk current createPackage: 'Spaces'!
+Smalltalk createPackage: 'Spaces'!
Object subclass: #ObjectSpace
instanceVariableNames: 'frame'
package: 'Spaces'!
-Smalltalk current createPackage: 'Test'!
+Smalltalk createPackage: 'Test'!
Object subclass: #NodeTestRunner
package: 'Test'!