--- a/smalltalk.rc	Thu Feb 10 00:31:17 2000 +0100
+++ b/smalltalk.rc	Sun Feb 13 14:26:28 2000 +0100
@@ -392,6 +392,9 @@
 (cls := Smalltalk at:#ProgressIndicatorSpec) notNil ifTrue:[
     Smalltalk at:#ProgressWidgetSpec put:cls.
 ].
+(cls := Smalltalk at:#ProgressIndicator) notNil ifTrue:[
+    Smalltalk at:#ProgressWidgetView put:cls.
+].
 
 "/ FileDirectory notNil ifTrue:[
 "/     Smalltalk at:#Disk put:(Filename rootDirectory)