--- a/smalltalk.rc	Mon Feb 07 13:25:14 2000 +0100
+++ b/smalltalk.rc	Mon Feb 07 13:25:35 2000 +0100
@@ -363,6 +363,7 @@
    Smalltalk installAutoloadedClasses.
 ].
 needToReactivate ifTrue:[HistoryManager activate].
+
 "/
 "/ some ST80 name aliases
 "/ (actually, much more is needed - this is just a start ...)
@@ -389,6 +390,9 @@
 Smalltalk at:#HandlerList put:HandlerCollection.
 Smalltalk at:#SignalCollection put:SignalSet.
 Smalltalk at:#Timestamp put:AbsoluteTime.
+(cls := Smalltalk at:#ProgressIndicatorSpec) notNil ifTrue:[
+    Smalltalk at:#ProgressWidgetSpec put:cls.
+].
 
 "/ FileDirectory notNil ifTrue:[
 "/     Smalltalk at:#Disk put:(Filename rootDirectory)