--- a/STXInstaller.st	Mon Sep 09 23:53:16 1996 +0200
+++ b/STXInstaller.st	Tue Sep 10 13:46:44 1996 +0200
@@ -503,6 +503,8 @@
                   (self createDirectories) ifTrue:[
                       ok := self copyFiles
                   ].
+                  progressValue value:100.
+
                   progressView topView abortButton label:'continue'.
                   progressView topView abortButton action:[progressView topView hide].
                   msg := #('ST/X Installation finished.' '' 'press continue ...' '' '' '') asStringCollection.